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EDITORIAL 


Chers amis, 


Tout d’abord, vous pouvez dès à présent réserver votre aprés-midi du samedi 6 
janvier 1989, jour de notre Assemblée Générale Annuelle. Elle aura lieu, comme 
d'habitude, au Centre Culturel Jean Verdier. L'ordre du jour sera défini ces 
prochains jours, mais certains membres risquant de ne plus avoir le temps de 
s’occuper du club lan prochain, nous attendons vos propositions de 
participation... 


Certains le savent déjà, la nouvelle version de JPC Rom est arrivée. Vous pouvez 
dés à présent l’obtenir aux mêmes conditions qu'auparavant, c’est à dire en nous 
envoyant une Eprom vierge, que nous vous renverrons avec le nouveau manuel. 
Voir le bon de commande au centre du journal. 


Tiens, ce mois ci c’est la rubrique HP-28 qui est absente du journal ! Aprés tout, 
c’est peut être cyclique, les programmeurs sur HP-71 sont peut être devenus 
productifs seulement pendant les nuits de pleine lune et les utilisateurs de HP-28 
pendant les marées d’équinoxe ! Pour la HP-41 nous n’avons pas encore trouvé. 


Le mois prochain, nous publierons les résultats de notre questionnaire, avant de 


distribuer l’annuaire. Ceux qui ont oublié de nous répondre n’ont plus que 
quelques jours. 


Le Bureau 
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COURRIER DU COEUR 


Jean REIBEL 

9 Square Victor Fleming 

92350 LE PLESSIS ROBINSON 
Tél : (1) 46 31 46 11 


Vend : 


HP-42S 800FF; Module Infrarouge HP41 + 
Imprimante thermique 82240A (compatible HP-28, 
HP-42,..) 1000FF;, Modules Curve Fit (HP-71) 
500FF; Math (HP-71) 500FF; Forth/Assembleur 
(HP-71) 500FF; RAM 4Ko (HP-71) 150FF;, Module 
HPIL (HP-71) 700FF; Interface Vidéo (32 col.) 
200FF; Interface RS232 1000FF; Lecteur cassettes 
(HPIL) 1000FF; Imprimante thermique HP82132A 
(EPIL) 800FF. 
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HP-41 


B. Wiklund Assignations de touches en microcode 
B. Wiklund Saut d’octets en microcode 


Un 
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ASSIGNATIONS DE TOUCHES 





Voici un programme qui vous permettra de placer 
n'importe quel code (0 à 255) dans un registre 
d’assignation. Le fonctionnement est très similaire à 
celui de 1K du PPC-Rom : 


- En z: préfixe; 
- En Y : postfixe; 
- En x : code de touche (ligne colonne). 


Remarques : 


- Vous pouvez assigner toutes les touches assignables, 
shiftées ou non, y compris la touche SHIFT. 


- J'ai mesuré des temps d’exécution toujours 
iférieurs à la seconde (vitesse standard). 
- Messages d'erreur : 

ALPHA DATA si X ou Y sont alphanumériques; 

DATA ERROP si le code touche est invalide. 
- Le listing suivant est donné pour une HP-41CX, ou 
avec un module TIME. Dans le cas contraire, il faut 
remplacer les lignes 8814 à 8817 par 110, 130, 110, 150. 
Le temps d'exécution sera alors allongé d’un 
soupçon... 


Principe : 


- On vérifie le code touche. 

- On simule lassignation de Dow (ou DEL) par la 
fonction ASK. 

- On recherche, par le code touche, le registre 
concerné; qu’on modifie avec les codes désirés. 


Exemples : 
1) 159 ENTER 105 ENTER -31 XEQ XYZASN : 
Vous avez maintenant un tone 105 assigné à la touche 


SHIFT shiftée…. 


2) 247 ENTER 63 ENTER 15 XEQ XYZASN : 
Vous avez assigné le Byte Grabber à la touche LN. 


3) 144 ENTER 124 ENTER 51 XEQ XYZASN : 
RCL best maintenant assigné à la touche -. 
Si vos codes sont supérieurs à 255, vous n’aurez pas 


toujours le résultat souhaité (à savoir modulo 255). 


Si vous trouvez mieux, ou des bugs, tenez moi au 
courant. 
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. à tous !! 


O08E 
013 
co1 
014 
019 
018 
0B& 
OAE 
078 
355 
059 
260 
1A0 
ÔF8 
OFE 
266 
2E6 
057 
1BC 
106 
130 
011 
306 
027 
130 
085 
306 
OC3 
39C 
342 
3EB 
130 
036 
306 
023 
302 
07B 
083 
130 
045 
306 
04B 
302 
043 
130 
042 
306 
017 
166 
023 
302 
0B5 
0A2 
0A6 
006 
266 


“Nu 

su 

nat 

ral 

uyu 

mx" 

READ 2(Y) 
A<>C ALL 
READ 1(2) 
2NC XQ 
->14D5 
SETHEX 
A=B=C-0 
READ 3(X) 
C<>B MS 
C=C-1 Sex 
?2C40 S8&X 
JC B7EA + 
RCR 11 
A=C S&X 
LDI S&X 
CON: 17 
?A<C S8X 
JC B7EA + 
LDI SEX 
CON: 133 
2A<C S&X 
JNC B802 
PT= 0 
?A#0 @PT 
JNC B7EA 
LDI S&X 
CON: 54 
?A<C S8&X 
JNC B7F5 
?A<C PT 
JNC B802 
JNC B804 
LDI S&X 
CON: 69 
2A<C S&X 
JNC B801 
?A<C QPT 
JNC B802 
LDI S&X 
CON: 66 
?2A<C S8X 
JC B800 + 
A=A+T S&X 
JNC B804 
?2A<C @PT 
?NC GO 
->282D 
A<>C S&X 
A=0 S&X 
C=C-1 S&X 


CA 


04 


+18 


-03 


+04 


+0F 
+10 


+09 


+08 


02 


+04 








B807 
B808 
B809 
B80A 
B80B 
B80C 
B80D 
B80E 
B80F 
B810 
B811 
B812 
B813 
B814 
B815 
B816 
B817 
B818 
B819 
B81A 
B81B 
B81C 
B81D 
B81E 
B81F 
B820 
8821 
B822 
B823 
B824 
8825 
B826 
B827 
B828 
B829 
B82A 
B82B 
B82C 
B82D 
B82E 
B82F 
B830 
B831 
B832 
B833 
B834 
B835 
B836 
B837 
B838 
B839 
B83A 
B83B 
B83C 
B83D 
B83E 
B83F 
B840 






























31C 
102 
386 
2FC 
102 
33C 
2DE 
023 
130 
008 
146 
O4E 
09c 
150 
10 
110 
3D0 
110 
110 
268 
31C 
1A9 
09C 
046 
270 
078 
390 
008 
158 
0B8 
390 
008 
0A6 
198 
37C 
370 
33C 
05A 
1BC 
070 
2B8 
05A 
05E 
056 
O0E 
106 
13C 
370 
CEE 
O4E 
130 
OFF 
O0E 
106 
13C 
370 
10E 
130 


PT= 1 

A=C @PT 
RSHFA S&X 
RCR 13 

A=C @PT 

RCR 1 

2B4#0 MS 

JNC B812 +04 
LDI S&Xx 

CON: 8 
A=A+C S&X 
C=0 ALL 

PT= 5 

LDaPT- 5 
LDQPT- 7 
LDAPT- 4 
LDaPT- F 
LDAPT- 4 
LD@PT- 4 
WRIT 9(Q) 
PT= 1 

?NC XQ 
->276AÀ 
C=0 S&x 
RAM SLCT 
READ 1(2Z) 
?NC XQ 
->02E7 
M=C ALL 
READ 2(Y) 
?NC XQ 
->02E7 
A<>C S&X 
C=M ALL 
RCR 12 
C=C OR A 
RCR 1 

C=0 M 

RER 11 

N=C ALL 
READ 10(+) 
C=0 M 

C=0 MS 
Cc=0 xs 
A=0 ALL 
A=C S&X 
RER 8 

C=C OR A 
C<>B ALL 
C=0 ALL 
LDI S8X 
CON: 255 
A=0 ALL 
A=C S&X 
RER 8 

C=C OR À 
A=C ALL 
LDI S&X 


B841 OCO CON: 192 
B842 158 M=C ALL 

B843 270 RAM SLCT 
B844 038 READ DATA 
B845 3B0 C=C AND A 
B846 O6E A<>B ALL 
B847 37A ?A#C M 

B848 03B JNC B84F +07 
B849 366 ?A#C S&X 
B84A 073 JNC B858 +0E 
B84B O6E A<>B ALL 
B84C 198 C=M ALL 

B84D 226 C=C+1 S&X 
B84E 3A3 JNC B842 -0C 
B84F 038 READ DATA 
B850 10E A=C ALL 

B851 OEO SLCT Q 

B852 19C PT= 11 

B853 OAO SLCT P 

B854 11C PT: 8 

B855 0BO C=N ALL 

B856 13C RCR 8 

B857 043 JNC B85F +08 
B858 038 READ DATA 
B859 10E A=C ALL 

B85A OEO SLCT Q 

B85B 09C PT= 5 

B85C OA0 SLCT P 

B85D 21C PT= 2 

B85E OBO C=N ALL 

B85F 012 A=0 P-Q 
B860 370 C=C OR À 
B861 2F0 WRIT DATA 
B862 3C1 ?NC GO 

B863 002 ->00F0 

B864 3E0 RTN 


Bertil Wiklund (508) 





SAUT D'OCTETS 


Ce programme n’est ni plus ni moins qu’un sauteur 
d’octets programmables. 


PA prend la partie entière de x et fait avancer (ou 
reculer, selon le signe de x) le pointeur programme 
du nombre d’octets spécifié en x. Si Xx est 
alphanumérique : ALPHA DATA... 


Exemple : 
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- Tapez le programme Ess (lignes 2 et 3 : TONE 89). 


- XEQ PACK, pour supprimer les nuls. \- 1 XEQ ESs : vous 
n’entendez qu’un BEEP : PA à sauté la ligne 5. 

-2 XEQ ESs : vous n’entendez plus de BEEP : PA a sauté 
les lignes 5 et 6. 

--4 XEQ ESS : le programme boucle sur la ligne 3. 
Pour arrêter : R/S. 

--6 XEQ ESS : le programme boucle sur les lignes 2 et 
3. Avec un soupçon d'imagination, vous entendez la 
Provence... 


Remarques : 


synthétiques. 

- PA fonctionne en ROM aussi bien qu’en RAM. 

-Il doit être possible d’effeciuer pas mal de 
manipulations tordues avec PA (assignations, etc...) 


LE programme : 


DGA 081 "AN 

368 010 pe 

B86C 244 CLRF 9 

B86D F8 READ 3(X) 

BSSE ?FE 2C40 MS 

B86F 013 JNC B871 +02 {€ 
B670 248 SETF 9 
8871 J0E A=0 ALL 
8872 355 ?NC XQ 
B873 050 ->14D5 
BB74 260 SETHEX 
2875 OAE A<>C ALL 
R87$ 380 ?NC XQ 
8877 008 ->02E3 
8878 070 K=C ALL 
8879 149 ?NC XQ 
BB7A O4 -»2952 
887B OFO C<>N ALL 
BB7C 266 C=C-1 SEX 
B87D 057 JC B887 +0A HD 
B87E OFO C<>N ALL 

B87F 24C ?FSET 9 

B880 027 JC B884 +04 

8881 33D ?NC XQ 

B882 OAG ->29CF 

B883 01B JNC B886 +03 

B884 31D ?NC XQ 

B885 OA4 ->29C7 

B886 3AB JNC B87B -0B 

B887 OFO C<>N ALL 

8888 ODD ?NC XQ 

B889 08C ->2337 

B88A 244 CLRF 9 

B888 3E0 RTN 


! 
- En mode RUN, PA vous permet de vérifier vos lignes 





Bertil Wiklund (508) 
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LA STRUCTURE DES 
FICHIERS LEX 


Le but de cette présentation est de vous permettre 
une exploitation pratique des fichiers LEX. Comme 
ces fichiers constituent une partie essentielle de la 
structure extensible du HP-71, vous avez 
implicitement une méthode puissante pour vous 
aventurer dans une région nouvelle. Parmi tous les 
programmes qui analysent des fichiers LEX celui que 
je considère le plus intéressant est sans doute SCANALEX 
(PC 39, (1986) p.32) que j'utiliserai et expliquerai 
dans ce qui suit. J’ai modifié ce programme pour qu’il 
puisse donner un listing soit du hex-code soit un 
listing desassemblé. Comme exemple de fichier LEX 
j'utilise le fichier éditeur EDLEX du module 
Forth-Assembler qui est instalé dans mon cas dans le 
port 4. L'adresse du fichier est 4D0E3. Si on fait 
HTAS(PEEKS(’4D0E3’,16))=EDLEX Donc l’entête du 
fichier se trouve à partir de cette adresse et il contient 
37 (25 hexa) nibs (voir JPC 65 p.18 par.3). Je rappelle 
ici que tout entête de n'importe quel fichier a la 
même structure. À titre d'exemple le 5 nibs à 
l'adresse 40103 c’est à dire 013FF représente la distance 
vers le fichier suivant (40103+13FF-4E502 l’adresse de 
DBGLEX) 


Dans tout ce qui suit on examinera à tour de rôle le 
programme SCANALEX (paragraphe noté avec $) et 
les fichiers LEX (noté avec L). 


s. Le programme SCANALEX calcule d’abord (ligne 
1120 du programme) l’adresse A fin de l’entête. La 
valeur hexa est A=4D108. La ligne 1130 de S -par un 
retour dans la zone de l’entête- vérifie que le fichier 
est de type LEX (E208) ou est vide (00FF); au cas 
contraire le message #63 (invalid file type) est affiché. 


L. Après l’entête on a 6 nibs qui donnent: 


- LEX ID 1 octet ..F0 
- Token inf. 1 octet ::01 
- Token sup. 1 octet 5507 


On a PEEKS$(’4D108’,6) = 0F1070. Après On a: 


La liaison vers la table suivante 5 nibs 31310; 
(PEEK$('4D108,5)=31310) 


Donc 4D10E+1313=4E421 qui est l'adresse de la 
deuxième table texte de EDLEX. Maintenant à 
l'adresse 4D113 il y a 1 nib qui détermine la présence 


(0) ou l'absence de la table de recherche rapide. On a 
PEEK$(/4D113/,13=F c’est à dire que la table de 
recherche rapide n’existe pas. Si la table existe elle a 
78 nibs plus 1 nib (0) qui marque la fin de la table. 
Les 78 nibs peuvent être regroupés en 26 groupes 
(correspondants aux letres de lalphabet) ayant 
chacun 3 nibs. Donc pour chaque lettre de l’alphabet 
ces 3 nibs représentent le déport (offset) à partir du 
debut de la table jusqu’au mot qui commence avec 
cette lettre. S’il n’y a pas un tel mot le déport pointe 
vers la fin de la table. 


s. A la ligne 1140 on commence l’écriture d’abord du 
nom du fichier LEX et puis de l’identificateur (ligne 
1150) et ensuite à la ligne 1160 on saute 6 nibs pour 
trouver la distance Z à la table suivante et la ligne 
1170 calcule ladresse respective (B=4E421). On 
détermine l’identificateur (2 nibs) de cette table et on 
revient à la ligne 1150 pour imprimer cette valeur qui 
est 52. Maintenant on se positionne comme pour la 
première table 6 nibs en avant pour avoir l’adresse de 
la table suivante; comme il n’y en a plus on trouve 
Z=PEEK$('4E427',5)="00000’. On passe ensuite à la 
boucle principale (ligne 1180) et on imprime 
l'identificateur de la première table F0. 


L. On est donc à l’adresse 4114 et on a : 

- 4 nibs : dist. jusqu’au 2° nib de la table texte. 
PEEK$('4D114',4)=D400 

- 4 nibs : distance jusqu’à la table de messages. 
PEEKS(/4D118' ,4)=CB00 

- 5 nibs : distance jusqu’au poll-handler. 
PEEK$(/4D11C',5)= F9100 


On a donc le début du premier mot clef de la table 
texte 4D114+4D=4D161 adresse qui pointe sur le premier 
mot clef DELETE. Le debut de la table de messages est 
4D118+BC=4D1D4. 

Le debut du poll-handler est 4D11c+19F=4D2B8 

Le debut de la table principale est 40114+D=40121 


s. À la ligne 1190 on lit N$ (4 nibs) représentant le 
premier et le dernier mot clef et ensuite N+1 (nombre 
total des mots-clefs) et à la ligne 1200 on écrit ce 
nombre. A la ligne 1210 on calcule 8=40117, l’adresse 
de debut de la table de recherche accélérée (speed 
table) et de la distance à la table texte. En fonction de 
la valeur du nibble à l’adresse 40113 c’est à dire 
suivant qu’on a F ou 0 la table existe ou n’existe pas. Si 
elle existe la continuation se trouve à une distance de 
79 nibs plus loin. Pour notre exemple la table n’existe 
pas et à la ligne 1220 on établit l'existence du 
poll-handler (p.-h.). La ligne 1230 spécifie la distance 
n$ vers le p.-h. Si N$=0 on écrit NO sinon on détermine 
à la ligne 1240, l'adresse E$=4028B du p.-h. On passe 
après (ligne 1270) au calcul de l'adresse T de la table 
texte. 
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une erreur d'exécution. Les problèmes liés au 
désassamblage seront traitées prochainement. 


Aurel Rottman (289) 


LE NOUVEAU JPCROM 


Le nouveau JPC Rom est arrivé ! 


Ce court article a pour but de vous présenter les 
nouveautés de JPCRom introduites dans la 
version E. 


Tout d’abord, la taille de JPC Rom est maintenant de 
44112 octets. 


La première de ces nouveautés est la présence de 
l'éditeur de textes présenté dans le dernier JPC. XEDIT 
et TEDIT sont présents, ainsi que toutes les fonctions 
associées (GENPOS, GENLEN, GENRPLCS, FILEPOS et la 
nouvelle version de FIND). 


La deuxième nouveauté est l’adjonction du « module 
graphique », c’est à dire d’un ensemble de fonctions 
permettant au HP-71 de parler à la ThinkJet ou à la 
LaserJet comme si c'était une table traçante. Il y a 21 
nouveau mots-clefs ressemblant furieusement au 
langage graphique du Basic des HP9000 (les gros 
ordinateurs HP). 


Certains mots-clefs ont vu leur syntaxe enrichie. Par 
exemple, LEAVE admet un paramètre optionnel 
spécifiant le nombre de boucles dont il faut sortir, 
PEEK$S prend son adresse indifféremment en 
hexadécimal ou en décimal, etc. 


D’autres problèmes ont été corrigés, suite à des 
remarques d'utilisateurs. Par exemple, certains 
mots-clefs de programmation structurée ne 
souffraient pas la cohexistence avec les commentaires, 
ce qui est un comble ! 


Ceux d’entre-vous qui disposaient d’une version de 
JPC Rom antérieure à la version D noteront un bon 
nombre d’erreurs (on appelle ça des bugs, je crois) 
supprimées, ainsi que la présence des deux mots-clefs 
DDIR et PDIR. 


Enfin, une remarque importante : vos programmes 
Basic utilisant JPC Rom (et le module graphique 
pour ceux qui l’avaient déjà) ne sont pas affectés par 
ce changement de version. Vous disposez de ces 
nouvelles caractéristiques sans aucun problème de 
changement de token, Id, etc. La compatibilité, quoi ! 


J’allais oublier : le manuel a dépassé les 350 pages et 
il contient maintenant une feuille à nous renvoyer si 
par hasard vous trouvez une erreur (si, si, on appelle 
ça un bug). Je ne me fais pas d’illusion, il doit bien 
encore en rester quelques unes. 


Mais jusqu’où iront-ils ? 


Pierre David (37) 
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à la ligne 1240, l'adresse E$-40288 du p.-h. On passe 
après (ligne 1270) au calcul de l'adresse T de la table 
texte. 


L. Après les 13 nibs (D en Hex) qui indiquent les 
distances vers les tables : texte, messages et p.-h., à 
l'adresse 4012A commence la table principale. Celle-ci 
est composée de 9 nibs pour chaque mot-clef (m.-c.). 
Ces 9 nibs se decomposent en: 


- 3 nibs distance relative du m.-c. dans la table texte 
- 5 nibs distance jusqu’au code exécution 
-1 nib charactère spécifique de lopération de 
selection (parsing) qui peut avoir comme valeur: 

F pour une fonction 

D pour un m.-c. programmable 

0 pour un m.-c. intermédiaire (ex. PORT) 

5 pour un m.-c. non-programmable (légal après 
THEN/ELSE) 

8 pour des données 


Le debut de la table principale est 4p12b est celui de la 
table texte 4D161-1. 


N Mot-clef 3nib Snib 1n Ad debut Dist Tab.texte 


CA) (B) CA+B) 
1 DELETE 000 4A200 D 4D121+3=4D124 2A4 4D3C8 
2 EDTEXT 220 BE100 D 4D124+9=4D12D 1EB 4D318 
3 FILESZR 130 CE100 F 4D12D+9=4D136 1E6 4D322 
4 INSERT 240 D9200 D 4D136+9=4D13F 29D 4D3DC 
5 REPLACE 150 EB200 D 4D13F+9=4D148 2BE 40406 
6 SEARCH 260 76800 F 4D148+9=4D151 867 40988 
7 EDPARSES FO0 3FE00 F 4D151+9=4D15A EF3 4E04D 


On peut vérifier, par exemple, que 
HTAS(PEEKS(/4D161,12)) =  DELETE et que 
ENTRY$C/REPLACE’ )=4D406. Le but de la table principale 
est donc de fournir le nom de chaque m.-c., dans la 
table texte et l'adresse du code exécution pour ce 
mot. On a: 


1 4D161+000 = 4D161 
2 4D161+022 = 4D183 
3 4D161+031 = 4D192 
4 4D161+042 = 4D1A3 
5 4D161+051 = 4D1B2 
6 4D161+062 = 4D1C3 
7 4D161+00F = 4D170 


La table texte se compose d’une succession des 
charactères ayant, pour chaque m.-c., le format 
suivant: 


- 1 nib représentant la longueur du mot moins 1. Si le 
mot a 12 nibs (6 charactères), alors ce nib est 8 (11 















dec). La valeur maximale d'un mot étant 8 
charactères (16 nibs) la valeur maximale du premier 
nib est donc F (15 dec). 


- 4 à 16 nibs suivant la longueur du m.-c. 


- 2 nibs (ASCII) le numéro d’ordre du mot. 


Ainsi la longueur totale de la table texte est donnée 
par la formule 3*{(# de m.-c.) + 2*{(# total des 
charactères composant les m.-c.) + 3 nibs (1FF qui 
marquent la fin de la table texte) 


Les mots clefs sont dans l'ordre alphabétique avec la 
condition que si deux m.-c. ont les mêmes 
charactères, le mot le plus court doit être placé après 
le mot plus long sinon le mot le plus long ne pourra 
plus être localisé, car le système de sélection (parse 
driver) s'arrêtera toujours sur le mot le plus court. 


S. On a donc à la ligne 1270 l'adresse T du deuxième 
nib de la table texte (T=40161) et à la ligne 1280 on 
détermine adresse M de la table principale. À la ligne 
1290 on a une boucle qui a chaque pas s’occupe d’un 
mot clef. L'adresse de départ est augmentée chaque 
fois de 9 nibs (ligne 1300) qui sont lus à la ligne 1310. 
La position 11 du m.-c. est calculée à la ligne 1320 et à 
la ligne suivante on retient 19 nibs à partir d'une 
position qui est plus petite d’un nib, pour pouvoir 
connaître la longueur L du m.-c. et cette longueur est 
determinée à la ligne 1350; enfin à la ligne 1349 on 
calcule l'adresse du code exécution du m.-c. A la ligne 
1360 la variable x$ contient deux termes: le numéro 
d’ordre et la denomination du m.-c. Il est intéressant 
de relever que pour la détermination du numéro 
d'ordre on n'utilise pas l'indice de la boucle mais le 
code contenu à la fin de la chaîne ASCII qui 
représente le nom du m.-c. Il faut aussi préciser que 
le code exécution est précédé par 10 nibs qui, pour 
une instruction exécutable, donnent: les premiers 5 
nibs la distance à la routine de décompilation et les 
suivants 5 nibs la distance à la procédure de codage 
(parsing). Dans le cas d’une instruction 
non-exécutable on a uniquement le déport vers 
l'endroit de décompilation . Pour le cas d’une 
fonction on a le nombre des paramètres et leurs 
descriptions. Le rôle de la fonction FNA est de préciser 
le nombre minimal est maximal des paramètres et 
leurs nature. On utilise ’$’ pour indiquer une chaîne 
de caractères et ’#’ pour indiquer un paramètre 
numérique. 


A la ligne 1240 et 1460 le programme attend qu’une 
clef (E;P,D ou une autre) soit actionnée. Les 
premières trois provoquent une passage au 
désassamblage du code exécution, respectivement 
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décompilation ou polling. 

Pour finir je voudrais discuter les particularitées de 
l'instruction oN POS($,$)+1. Cette forme d'instruction 
a été utilisée pour permettre au cas ou le caractère 
selectionné ne figure pas dans la chaîne afin d’eviter 
une erreur d'exécution. Les problèmes liés au 
désassamblage seront traitées prochainement. 


Aurel Rottman (289) 





CHOC EN RETOUR 


Deux bogues ont été signalées sur le Lex EDIT : 


- Pendant certaines recherches, la fonction GENRPLC$ 
risque de boucler et de saturer la mémoire. 


- N'essayez surtout pas de voir la position du curseur, 
si vous possedez CURLEX. Nous vous assurons un Memory 
Lost (avec souvent la perte de ports indépendants) la 
prochaine fois que vous presserez sur [ENTER]. 


Nous vous donnerons des versions corrigées de ces 
Lex le mois prochain. 
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Programme "SCANALEX'"! (Necessite JPC Rom) 


- PPC Paris 1989 


HTA$,REVS, OPCODES ,NEXTOPS 


20 INPUT "Lex File ">F$ @ CALL SCAN(F$) 


1000 SUB SCAN(F$) @ ON ERROR GOTO 1540 à POKE ’2F441!,!F' 


1010 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


1150 
1160 
1170 


1180 
1190 
1200 
1210 
1217 
1220 
1230 
1240 
1250 
1260 
1270 
1272 
1275 
1280 


1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 


DEF FNC$(C$,B)=DTH$(MOD(HTD(C$)+B,16"5)) 


DEF FNA$S(X$) Q S$=nn 1 ’()' signifie ‘tableau’ 
FOR J=3 TO HTD(X$[1,1])+2 
IF X$[J,J1=/4' THEN S$=S$8/$ 
IF X$[J,J]1='6" THEN S$=-S$&'($)" 
IF X$(J,J]='8' THEN S$=S$&'#" 
IF X$[J,J]='A' THEN S$=S$&'(#)" 
IF X$[J,J]=/C' THEN S$=S$&'A' 
NEXT J @ FNA$=S$ 
END DEF 
DIM A,B,I,L,MN,T,Z,F5,F6,M1,71,0$,ES,NS,P$,M1$,T1$ 
FS=FLAG(5,0) à F6=FLAG(6) à A=HTD(ADDR$S(F$))+37 à B=A Q OFF ERROR 
N$S=-PEEKS(DTHS(A-21),4) à IF N$#/802E' AND N$#'FF00’ THEN PRINT MSG$(63) à END 
DELAY 0,0 @ PRINT @ PRINT F$;TAB(12);"LEX#: 11: 


fCNTLEX': PRINT REVS(PEEKS(DTHS(B),2));" 1 
B=B+6 à Z=HTD(REVS(PEEKS(DTHS(B),5))) 
IF Z THEN B=B+Z à GOTO CNTLEX’ ELSE PRINT à WAIT .5 


ZMAINLOOP': PRINT @ PRINT REVS(PEEKS(DTH$(A),2));" -"; 1 A Q Lex ID 
N$=REVS(PEEKS(DTH$S(A+2),4)) @ N=HTD(N$[1,2]1)-HTDCN$[31) 

IF N$="0000" THEN PRINT “ pas de mot clef" à SFLAG 5 ELSE PRINT N+1;'mots clef!" @ CFLAG 5 
WAIT .5 à B=A+12 à B1=B 

IF PEEKS(DTH$(A+11),1)=/0' THEN B=B+79 @ PRINT "Speed Table..";DTH$(B1) 

PRINT "Poll .......... Fe 

NS=PEEK$(DTH$(B+8),5) à 1F N$='00000’ THEN PRINT ‘NO’ à GOTO 1260 

ES=FNCS(REVS(NS),B+8) @ PRINT "e':E$ @Q K$=KEYWAIT$ 

IF K$='E' THEN CALL CD(E$) 

IF FLAG(5) THEN ’NXTLEX’ 


T=B+HTD(REVS$S(PEEKS(DTH$(B),4))) à PRINT "Text Table....... M:DTH$(T) 
B1=B+4 

T1=B1+HTD(REVS(PEEKS(DTHS(B1),4))) @ PRINT "Message Table....";DTH$(T1) 
M=B+13 à PRINT "Main Table....... M:DTH$(M) 


'KEYLIST': FOR I=0 TC N 
M1=M+9%1I 
MIS$=PEEKS(DTH$(M1),9) ! Main Table du mot 
TI=T+HTD(REVS(M1$[1,31)) 
T1$=PEEKS(DTH$S(T1-1),19) ! Text Table du mot 
ES=FNCS(REVS(M1$[4,8]1),M1+3) ! Adresse du code executable 
L=HTD(T1$11,11)+1 ! Longueur de l'intitulé 
X$S=STRSC(HTD(REVS(TISIL+2,L+3])))8&" M&HTAS(TISI2,L+1]) 
N$=REVS(PEEKS(DTHS(HTD(E$)-17),17)) Q CFLAG 5,6 à LC OFF 
PS=FNCS(NS [1,5] ,HTD(E$)-5) à D$=FNCS(NS [6,10] ,HTD(E$)-10) 
PRINT X$;:TAB(13);"[";:M1$19];"J">TAB(17);"et;ES$;" 1; 
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1400 
1410 


1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 


1500 
1510 


2000 
2010 
2020 


2050 
2055 
2060 
2070 
2080 
2090 
3000 
3010 
3020 
3030 


ON POS('58CDF',M1$[91)+1 GOTO 1430,/C5','/CD’,'CD','CD’,'CF"' 
POKE "2F443" Qu à POKE "2F4411,"0" @ PRINT à GOTO 1340 


1CF': PRINT TAB(26):REVSCNS[1,21); TAB(31); FNASCNS); 
N$(1,2]= Min Max d'arguments 
PRINT @ GOTO !S' 


1C5': SFLAG 5 Q PRINT "p';P$ @ GOTO ’S’ 
CD’: SFLAG 5,6 à PRINT "p';P$;" d';D$ 


1S!: SCROLL 1 à K$=KEY$ 
IF K$='P' AND FLAG(5) THEN CALL CD(P$) @ GOTO 1410 
IF K$='D' AND FLAG(6) THEN CALL CD(D$) à GOTO 1410 
IF K$=/'E’ THEN CALL CD(E$) @ GOTO 1410 
IF K$='#431 THEN 1540 

NEXT I 


INXTLEX/: A=A+6 à Z=HTD(REVS(PEEKS(DTH$(A),5))) 

IF Z THEN A=A+Z @ GOTO ‘MAINLOOP' 

POKE ’2F94A',10! à 1=FLAG(5,F5)+FLAG(6,F6) à POKE 12F441:,10/ 
END SUB 


SUB CD(A$) 
PRINT à CALL DESACAS) à POKE ’2F441!,'07 @ POKE ’2F443!,!0! Q PRINT 
END SUB 


SUB DESA(AS) 
PRINT MA$= 1:A$ @ INPUT "B$= ";B$ 
CREATE TEXT Q à ASSIGN #1 TO Q 
LOOP 
PRINT #1;OPCODES(A$) 
AS=NEXTOPS(A$) 
IF HID(B$S)<HTD(A$) THEN 3020 
END LOOP 
ASSIGN #1 TO * 
END SUB 
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Page 001 Editeur, exécution des commandes <xcmd.as Page 003 Editeur. exécution des commandes <xcmd.as?> 
AREUH ASS. V2.4 AREUH ASS. V2.4 Utilitaires 
4001 04000 TITLE Editeur, exécution des commandes <xemd.a5? 0104 60000 
Cau2 00000 4101 00900 ons osssosererssosesersssesenesesessac ete cecsossseseseess 
9093 00080 + 9192 00000 + svRIR2 
0004 90800 + JPC:003 0193 00m@ + 
9025 09000 +  $9/02/07: PD Correction des valeurs par défaut de J 0184 00000 + But: Sauver et R2 dans Ideb et Ifin. Utile dans les 
00GE 90000 . à 90 + commande R, Det C/M 
ogn7 a000ÿ 9106 904 + Entr 
0005 00000 vétsssersssressnes esse esse esse es see ste enessessesssee 0107 00000 & é = numéro de la ligne de début 
6003 09408 + Variables locales 0193 04000 ®, = numéro de la ligne de fin 
9014 09040 posssossnssesse nano n esse s etc c sos cseseeesseseesesssee 0199 09009 + tie: 
0011 40006 @110 a + - deb = la ligne de début 
0012 0000 , Q111 40u00 , lfin = la ligne de fin 
0913 agqun + “tmp” démarre juste après les variables global XEDIT 9112 90400 + Abime: C. 
0914 ouau . ion de ne psc ir une zone de } aqua 4113 04907 + og - 
0015 daaeu + r endrait de cette zone, car cela géner û114 4 + Niveaux: à 
4g1r U0a60 + 4115 90000 #4 orique: 
6017 40006 + 0116 a90ûn + /11/13: PD/JT séparation de S. R, D et C/H 
6012 06000 tmp EQU DTMF début de la re temporaire o117 40406 vootosessesensenescereenessemenossesssrectonseseseesceerses 
n913 4upnû 0118 0000@ 
4e2a ana6a « 4113 00000 Ideb 
avouer . e est à utiliser avec 0120 40067 
2 pan + de routine oagaA & = AR 
ougun + 9990) (lfin 
va60û + eea1g 
0009 stmt  EQU temporaire 04913 ñ lfin := Rè 
6 gnaaa 5 M9016 0! 
7 40998 3 duo1e 
28 00008 + L / P Cdispanible : 20 quartets) ensevesss one rreseessovseononmnonese nec ess ereresseesessens 
g000a + + getdbf 
49900 d+tmp 5 q à . 
aanoû ôSttmp 5 q aoal + But: Dans les comma Det her les 
auaon Jè+tmp ia aual + adr de début et de fin tackée 
agaan 2 QQ91E e dans Ideb et lfin et les pl adfin, en 
34 gagna 3 moule e salculant la différence dan 
aauou ble : 24 QAQlE + Entrée: 
CPLET) , AGA1S + deb = 
gang GU+tmp “Te 49018 + = \fin = 
aguan A1+Emp la chaîne GUALE + rtie: | 
equna HE +tmp e ls chaîne AQULE + - addeb 
a446 dnaaa 11+tmp + adfin | 
ua4l Ana zlastkv EQ 16+tmp . Finde 
0042 Qoëga s éEbPS 
0443 0994à + + 
9044 6a00ù + S (disnonihle : 29 quartets) 8 . | 
9045 A0puR + CELA + 
Quab vuout deb ü d8+tmp 5 q : BECHES + | 
0n47 Gun lfin EQL OStEmp 5 q: 5 48018 » 
0043 9agau adr EQU léttmp 5 g : 8 + 
GuAg youga offset EQU 15+tmp 5 q : De SRE SL EN ENT TRS PAUSE ER CRT RTÉRIS AVIS ÉITIT ETES CRS 
0056 Gaga PAIE 
| 
Editeur, exécutinn des commandes <xemd.as Editeur, exécution des commandes <xemd.as 
4 Utilitaires 
JO] Ouh . getdbf De-(5) 
DU? anus + R (disponible : 18 quartets) C=DATÉ 
4053 quooa + GOSUBL | 
0Q54 Aoûna EQU Rs 5 q : no ligne courante CO8EX 
0455 anaqû EqUu dis 5 g : no ligne de fin Dü=(5) addeb 
0456 Da004 EQU D+stmt 5 q : dernière ligne ok DA 52 0) addeh := ° début 
0057 Dan remp  EQU 45+stmt 14 Q : chaïîne de remplact 40035 
9053 dom savlin EQU 15+stmt 14 q liqne de le fichier 157 00035 140000 fin 
0059 Q0aan 00638 146 A C(A) := numéro de ligne 
po6a oovau . à OUASE E6 h 
0961 pQuna + H (disponible : 24 quartets) dnQ4ù BE008Q =seek CA) := ébut de la ligne 
QQE2 eau + @0046 16 CA) := © début de la ligne 
0063 9000ù curcmd EQU 69+tmp 1 q : numéro de la commande courante dans 1B00000 D9=(5) adfin 
dab4 eauan AAQ5A 144 DATO=C A adfin := fin de la zone 
9065 A0040 . 
0966 4004a + J (disponible 24 auartets) e 
a067 40004 . + On prépare la mise à jour du buffer qui aura lieu tout à 
9065 9000û #cou: EQU 5 q : adresse ligne courante + la fin. MVFILE abimant addeb et adfin, on doit s'en 
9659 aaana “remain EQU s. ss 5: di à ore lign + détacher le plus vite possible. Seul “adfin - addeb” est 
4a7à 08008 prem EQU 19+tmp 5 q : numéro de la première ligne + nécessaire pour ‘dellin”. On calcule donc cette valeur 
0971 00000 Jsave  EQU dô+stmt 15 a : sauvegarde pendant ‘7° + et on Îa met en lieu sûr. 
0072 90000 + 
0073 @000û * 184 & addeb 
0074 DA90 + D (disponible : 24 quartets) 142 A addeb 
0075 49900 + Eè 4 adfin - sddeb 
0076 Qaquû +ldeh  EQU 00+tmp 5 q : no ligne courante 140900 findeb 
4077 OA90û elfin  EQU 45+tmp 5 q : no ligne de fin 0176 00961 144 À findeb := adfin - addeb 
on78 0aQa =EXTFIL EN 10+Emp 5 q : adresse Fichier exterieur 4177 @4064 
n073 AAA EQU 15+tmp 5 q : adfin - addeb pendant MVFILE ; 00064 + 
v60un EQUu Od+tstmt 5 q : lfin - ldeh + 1 aaa64 + Calculer le nombre de lignes traitées et le placer 
gong EQU G6estmt 5 q : adr » ldet anQp4 + dans nblig 
gnanQ EUU 18+stmt 5 a : adresse lfin AGAFA4 . 
AU AQUSA LANVDA deb 
pnucn . AQAEA 146 A LCA) := Ideb 
guuna + € / M (disponible C4 quartete) GAnED 160 DasDO+ (lfin)-Cldeb) 
5 vaut . 48470 142 A=DATO A AÇA)Y := lfin 
aaana +ldeh  EQU GY+tmp 5 q : no ligne courante 86 Uaa73 EE {=A-C A C€A) := fin - Ideb 
ana elfin EQU 65+tmp 5 q no lig fin voa 6 E=C+l À CA) := lfin ideb + 1 
Qanau *EXTFIL EQU lA+tmp 5 q adress ier eeterieu 18 0077 1AGMOP Da=t4) r 
aaana +findeb EQU 1S+tmp 5 q sdfin addeb pendant MUFILE Qaa7D 144 DATÈ=C A 
11 ADGBA enblig EQU aù t 54 aeQs 
> aapAa *sddeb EQU QS+: 5 q oaase O1 RTN 
33 pouan +adfin Eüb 14 5 q aan 
ga4aû copie EQU 154: q 1 si copie ou Ô si move uan 
CELL] curadr EQ létstmt 5 q adresse de la ligne courante AGQS? norsereesse essor heros eee ressessesereseseseessneneserees 
6 e00n0 ‘ 5 00082 + ckiprm 
42000 Csave EQU 15+tmp € q : sauvegarde temporaire 6 0Aas2 + 
3e opaun gas? + But: vérifier la cohérence pour une svntaxe admettant 9 ou 
AAC * 1 paramètre 
a 09082 + Entrée: 
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Page ds iteur, exécution des commandes ‘«cmd.as Page 007 Editeur, exécution des commandes <xemd.as 
AREUH ASS. VI.4 Utilitaires AREUH ASS. V2.4 Utilitaires 
è000 evas2 . R@ = nombre de parametres 8309 OQQES 
oc8! $ + = Ri = Idebut éventuellement OIA1 LOPEZ I1S set.db C=RO 
9202 à + Sortie: @302 QU0ER SAE 2C40 A aucun paramètre fourni ? 
4205 + - C(A) = RI = debut ou courante, vérifiée 0303 QUQEE 11 GOYES sdb018 alors “default to R1” 
èe4 + Abime: 4, ©. DO a394 aa0FQ 1RDACQO D@=(5) =COUR sinon "default to .” 
CAS + Niveaux: À 0305 080F7 142 A=DATO A idebut := courante 
d286 PAASE + Detsil: 9346 000FA D6 C=A A Ifin := courante 
+ selon nombre de paramètres 9307 QAuFC 570 GONC sdb020 
. Q : renvoyer courante 2308 QONFF 111 sdb019 A=RI Idebut := debut 
ee + 1: selon Idebut 033 qu1e2 DE C=A À Ifin := 1debut 
É . à : renvoyer 1 a318 80104 7320 sdb@2@ COSUB defaut 
É . « dernière + 1 : renvoyer ldebut 9311 40108 500 RINNC ck, pas d'erreu 
. sinon : dernière + ! 0312 QuleR GE7S GOTO notfnd intervalle inexistant 
3 duel . fin sel A213 9010F 
Quÿs2 . 4314 Q010F DROITE TE ET TETE TETE ETS TES TES TEE TETE LE ET EE EEE EE EEE EEEEEEEEEEES 
dogs? , ù31s dalèr + set.t$ 
49032 , 9316 2Q1AF + 
7 Dans) . 8317 0010 + But: mettre les paramètres par defaut à (.+1,4) 
+ toreressssentessesse 0218 QUIOF + Entrée: 
4319 0810F + - R@ = nombre de paramètres 
res 9 QALUr +. - Ri = Idebut (si RO >= 1) 
AAIor +  - RÜ = fin (si RA = 2) 
YOLAF + Surtie 
Ga LAr € € 1 : intervalle inexistant 
Invalid Farm” vO1er . - Cy = 4 : intervalle existant 
- Aë107 * R1 = Idebut ou idebut + 1 
90107 . Rè = 1 
geler + Abime: À, BCA), €, DO 
6010F + Appelle: defaut (tombe dedans) 
dQier + Niveaux: M 
guinr + Historique: 
QA10F + 66/45/23: PO/JT conception & codage 
à DORE + S8/07/09: PD/JT ajout de set.+f 
4 + 88/18/24: PD/JT retrait de set.+$ 
kipit À oalar dos sopeoos en sese tresses eos res esse roeeeeesensseneserssense 

















debut := Lou (dernière + 1) ea16F 
9914 1800000 set.+$ L@=(5) =COUR 
AA116 142 A=DATA A 
ua119 E4 À +1 
22118 =DERN 
dallr A 
da102 À $+1 
ë 
5 defaut 
A 
+ 
- + Attentian ! Le € continue 
RE F Ë & ane ant 


on des commandes <xcmd.as 









sossrroses sites eseesseseeresessecsenepeseseessevssseeeeene 























i + defaut 
| . 
| , les arguments et positionne les paramètres 
+ 3u« valeurs désirées. 
+ nambre de para 
, = premier par €ldebut ) 
+ = deurième tre (fin) 
+ AÇA) but par defaut 
+ CEA) de lfin par defaut 
+ Sortie: 
+ À ntervalle inexistant 
+ à valle existant 
+ 
+ 
+ ba 
+ 
. ifications 


4 alors erreur 





. 
* lfin alors erreur 

Le = min Clfin, dernière) 

° si Idebut : dernière alors INTERVALLE INEXISTANT 
. INTERVALLE EXISTANT 
. 

. 

+ 











ueove 48 
6aa00 DE 
5 0900F 


storique: 








/95/18: FD/JT conception & codage 
88/05/23: PD/JT travailler cohérence de (.,.$) 


sorsesonses se ses esse se ten seoremeneecésnetereneessseeseess 





. 

ennscossrsses eos sesseressesesnesoseesensssehenessessessenee + Attention ! Le code vient d'en haut 

+ set.dt ® 

& defaut B=A A B(A) := Idebut par defaut 
+ But: mettre les oaramètres par defaut à (., cligne début) 

«-EnETées Az=Rû C(A) := nombre de paramètres 
$ bre de paramètres A 

+ L R® >= 1) defti4 nb paramètres = 4 

. 3) À 

+ deft54 nb paramètres = 2 

, + = | 

à R£ := lfin par défaut 

G ju wÿ15D 69€ deft56 B.E.T 

è » yA 146 + nb paramètres = à 

: palan AA defti R RE := fin par défaut 

s; Nota 35 où l'intervalle 98143 DA BE a ACA) := Idebut par défaut 





35 ou 
. 6414 
@h145 
ae 






lant n'as donc pas 





Ri 





idebut par défaut 


db paramètres © 





vérifications 


CE 


snoorossssssessessssess ess oser seseseeessssssessoneseessese 55 Idebut = 6 alors erreur 
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AREUH ASS. 


9400 09148 
2491 09148 
9402 00145 
0403 00148 
0404 90148 
9495 09148 
9496 0Q148 
0497 00148 
0498 WO14E 
0409 00150 
9410 00153 
@411 60156 
0412 90158 
0413 9015F 
9414 00162 
6415 00165 
0416 06167 
9417 @016A 
0418 0016D 
2419 0016F 
9476 00172 
0421 00174 
9422 00177 
9423 04179 
9424 OQ17B 
9425 6917R 
9426 04181 
9427 04127 
0428 09127 
0429 @à137 
9434 00187 
6431 00187 
h422 Q1&7 
0433 04187 
434 G01€7 
0435 00187 
0436 4157 
6437 QU127 
9432 U9187 
0434 04127 
9444 0417 
U44l 08187 
d442 QU187 
0443 09187 
9444 60187 
9445 64187 
9446 G0187 
0447 00127 
9448 aû187 
0443 00187 
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AREUH ASS. 


9459 40157 
9451 0@127 
4452 40157 
6453 40127 
Q454 @Q127 
0455 GU1&A 
9456 AAISE 
0457 @4191 
0458 00197 
9459 @919D 
9460 WO1AQ 
6461 QALAG 
04€? OUIAA 
0463 @UIAD 
0464 DO1AF 
Q4ËS OUIAF 
9466 0012 
@4t7 @a1r3 
9468 OALEC 
9469 @A1C4 
oa7@ Ow1CZ 
9471 
@472 9 
0473 0 
0474 
@475 
9476 
@477 
0478 
4479 
0459 
o481 
q482 
4453 061D5 
0484 40105 
4485 00105 
9486 00105 
9457 QO1DS 
9488 00105 
a459 0@1D5 
9498 99105 
9491 00105 
@492 Q@1D8 
0493 @41DB 
9494 @01DD 
4495 @01DD 
0496 QQ1ES 
4497 601E3 
0498 401E9 
9499 Q01€9 
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V2.4 Utilitaires AREUR ASS. V2.4 Utilitaires 
° si Idebut : fin alors erreur 9599 Q01E9 , 
. Ifin := min (fin, dernière) 0591 001E9 + But: mettre l'information "mode interactif demandé” dans 
. si Idebut >» dernière + 1 alors erreur 9502 OG1E9 + variable globale QUERY 
+ si Idebut <= dernière alors INTERVALLE EXISTANT 9503 091E3 + Entrée: 
. INTERVALLE INEXISTANT (ldebut == dernière + 1) 0504 001E9 e _- R3(S) = valeur laissée par la décomposition 
# a595 001E9 + Sortie: 
111 deft50 A=R1 Idebut 0596 601E3 + - QUERY = R2(S) 
848 ?4=0 A 9507 001E3 + Abime: C. DA 
D2 GOYES invprm "Invalid Parm” 9598 601€ + Appelle: - 
11A C=R2 ifin 9599 001E9 + Niveaux: Q 
8B6 7A2C À 0519 OQ1E9 + Historique: 
ee GOYES invprm “Invalid Parm” 0511 091E9 + 88/10/30: PD/JT isolement de "S” 
1B00000 D9=(5) =DERN 0512 001E9 Don ose eeeses seems oser enansenvestese pre seeeensesces 
142 A=DAT@ À A(A) := dernière 0513 001€9 
8BE ?C<=A À si lfin <= dernière 9514 091E9 11B quer? C=R3 
54 GOYES  deftb@ alors deftb® 0515 0691EC 1890900 D9=(5) =QUERY 
182 R2=A sinon lfin := dernière 9516 00173 1544 DATA=C S 
119 deft64 CCA) := Idebut 9517 001F7 01 RTN 
E4 À ACA) := dernière + 1 0:18 001FS 
882 4 0519 091F9 ssoosesrssssossese 
94 invprm "Invalid Parm” 4520 001F9 + clrrpt 
8A2 A 9521 001F9 . 
va Cy = 1. intervalle inexistant 9522 @01F9 + But: effacer toute trace de répétition de touche 
ai Cy = @. intervalle existant 0523 061F3 + Entrée: - 
9524 O01F3 + Sortie: - 
3304040 invprm LC(4) =eILPAR “Invalid Parm” 9525 401F9 + Abime: C(A). DO 
8Cauna GOLONG =xederr 0526 001F9 »* Niveaux: À 
0527 091F9 + Historique: 
none enter eme esse eee ess see sseessneeeséense 0528 041F93 . 88/05/15: PD/JT pompe dans KA, lui-meme dans CHEDIT 
+ valide, valid? 6529 001F9 sense nes s esse ressens sée sens eeeseseneneneressense 
+ 9530 441F9 
+ But: valider ce qui a été pris (dans la ligne) par la cmd 091F9 1R4MOA8  cirrpt D=(5) =KEYPTR 
+ "valide" sort éventuellement en erreur, alors que 2 44208 D2 C=4 À 
+. “vslid?" retourne à l'appelant, la Carry indiquant 4Q202 1562 “S 
+ si une erreur à été trouvée. nacus 92€ xs 
+ Entrée: 6249 00 retour si buffer vide 
+ - Dl= position dans la ligne a : 140000 (=KEYEUF }+2°14 
#_- DCA) := nb de caractères restant € 14€ B 
° Sartie: 90214 @1 
+ - PCMD, LCMD mis à jour 94215 
valid? 540 00216 soso nes ne rene neo ne sense enesesesesesreveessesereue see 
+ Cy = 1 : erreur (C(4-4) = numéro d'erreur} 04216 + abèn 
. cy = 0: 0k 90216 + 
+ Abime: A(B). CCA). DCA). D1, Sû 94216 + But: analyser les arguments des commandes L, P et J 
+ Appelle: ship, laokah. getchr 44216 + Entrée: 
+ Niveaux: p} 545 00216 € - ACA) = dernière ligne par défaut 
e Note: cette routine vérifie qu'il n'y a plus rien sur la 6 94216 . - RO = nombre de lignes introduites 
+ ligne de commande. ê . RI : debut 
s Historique: . Rè : fin 
+. 88/05/15: PD/JT conception & codage +. - DtA} = LEN(param) 
Editeur, exécution des commandes <xemd.as Page IC Editeur, exécution des commandes <xcmd.as? 
Vè.4 Utilitaires AREUH ASS. V2.4 itaires 
«<  £$8/10/29: FD/JT ajout de A(B) dans les “abimes” 56Q @4216 5 - Di = ° param 
+ 88/11/11: PO/JT ajout de "valid?" pour D et x aa216 + _- Sÿ = j si le nombre de lignes fourni par l'utilissteur 
Spoosoreso rares esse oseoenos ses secs eenosensssesuesessessesose 4552 00216 e ne comprend pas la ligne de début (utilisé par J) 
0553 00216 + Sortie: 
854 valid? ST=1 ] 4554 Q0216 . - KI = début 
66aû S0TO val044 0555 00216 +  - R3 = nombres de lignes valides (déjà tecté, évent. 0) 
840 valide ST=@ ê 4556 40216 + Abime: A(H), BCA), CCA). DO, R3 (D1 et D{A) réactualisés) 
èE ane val@0a GOSUBL =skip 4557 60216 + Appelle: nombre, skip, ASLWS5, ASRUS 
8Ean0û GOSUBL =lookah 0558 00216 + Niveaux: 2 
ali 60€ valok  EOL trouvé 4559 AQ21E + Note: la première ligne par défaut est la courante (".') 
8E0000 6 tchr EOL non trouvé. Est-ce ":° 7 0564 QA216 + dans les deux cas (J et L/P) 
3183 Fe Q561 QUTIE + Historique: 
ge B 6562 00216 + 88/14/29: PD/JT séparation de L 
Al vali00 non : “Invalid Cmd” 4563 AU216 dnsnnese ose esre nes r esse nes pe nee rmeoenenmmsrecceeessesse 
0564 QO21E 
137 valok CDIEX 9665 A021E EF00000 sbCn GOSBVL =ASLW5 A(9-5) := ifin si il n'y en a pas 
1Faaaaa D1=(5) =PCMHD 6 4021) SEOQUC GOSUBL =nombre 
145 DATI=C À PCMD := DI 00223 4A4 60€ 3bCn5@ nombre non reconnu 
1060 D1=(2 =LCMD . 
DB £=0 À + cmd» «nombre ; 
145 DATI=C À LEMD := DA) + le nombre est dans A(A) 
43 RTNCC . 
368 ù cas standard ? 
J3vuêu vallo8 LCC(4) (=id) (=teICMD) EU abCnè5 ou 
87à ?ST<1 à reporter simplement l'erreur E4 ) 
80 RTNYES oui : Cy = | 103 abCnès R3 := nombre de lignes 
5q1 GONC erreur B.E.T. “Invalid Cmd” 8E000û =skin  Fasser éventuellement le nombre 
08236 + 
nnnrésésssenene te ness eee nes éessenene ses eéaseseseseseesese 8 00236 + RA = nombre de paramètres 
° naquer 94236 , 
+ v0236 118 A=RÔ AA) := nb de paramètres 
+ But: vérifier que "query" = à 90239 CC A=A-1 A 
+ Entrée: 0a23B 4B0 Goc abCni® © paramètre 
e  _- R3 = query (à où 1) Aa23E CC A=A-1 
° Sortie: 09248 431 G0C 1 paramètre 
+ Abime: C(W) 00243 699F GOTO “Invalid Cmd” 
e Niveaux: à ; 00247 
+ Histurique: 00247 e nb de 
+ 88/05/15: PD/JT conception à codage @a247 1RO0@0Q abCnlû 
000000000000 6eme too nee srertessesssse 569 @Q24E 142 
Qe251 101 
118 noquer C=R3 Q0254 111 abCn?24 AÇA) := debut 
94h ?C=û $ 2 00267 118 C(A) := compte de lignes 
aa RINYES 3 @@05A CA 
aa25C CC ACA) := numéro de la dernière ligne 
334040 invemd LC(4) (zid)"(=teICMD) "Invalid Cmd” 595 0925E 1980 
8Ccañan erreur GOLONG =xederr €2 146 CCA) dernière 
0a265 ERA 
A  OA2ES 00 
e quer? 599 Qe0EA EQIF invprm “Invalid Parm” 
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Page 013 Editeur, exscution des commandes ‘«<emd.as 
AREUH ASS. V2.4 Utilitaires 
û608 WO2FE 
9601 A926E + pas de nombre nes fourni après ‘'L', ‘P' ou ‘"" 
0602 9026E SFA0900  abCn59 COSBVL = fin 
4683 @9275 DE C=A 28 Pin 
Q604 90277 1BOGQAG Da=(5) 
0695 QQ27E 142 A=DATA := debut (7.7) 
0605 99281 76AE GOSUR 
2607 00285 . 
Q6QS 00285 + Cas Cy = 1 intervalle inexistant. Typiquement. après les 
0609 94285 + paramètres par défaut. on à C$+1.$) 
2619 90285 . 
0611 90265 111 A=RI 
@612 00288 11A CER2 
9613 60258 E2 C=C-A À 
0514 0928D E6 C=C+1 À 
0615 9928F 108 R3=C R3 := nb de lignes (évent. 0) 
9616 00292 d 
0617 GQ292 + R1 = ligne de début 
6 + R3 = nombre de lignes à afficher (dejà testé) 
. 





d0292 
9a234 





RTN 
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2558 


OQ2AA 
A0244 
QAZAA 
QAUAA 
AaUAA 
ROZAA 
QQZAA 
@Q2AA 
Qa2AA 
@eTAA 
QOCAA 
QQ2AA 
GQ2AA 
0e2AA 
LÉRELX 
O02AA 
QQZAA 
QAOZAA 
902AA 
202AA 
CLAOE 
GQ2AA 




























1890094 





À 


A 
a 


Frenaa 


Editeur, 


exécution des commandes <xemd.as?> 


Commandes Exit / Quit 


Senonnss ose e en pse css senese sense sessocenresssosesesee 4e ss 


invCmd 


=cmEXIT 


+ Collapser 


+ 


<EXIT 









+ cmEXIT 

+ But: sortir de l'éditeur 

+ Entrée: 

+ - DCA) = LEN(param) 

« - D1 = © param 

- R8 = nb de lignes introduites 

, R1 = Idebut 

. 2 = lfin 

. R3(S) = 1 si ‘?' avant la commande 

+ Sortie: par NXTSTH 

+ Abime: tout 

+ Appelle: noquer, valide, I/ODAL. cirrpt. NOSCRL. setfll 
+ Niveaux: N/A 

+ Historique: 

+ 88/05/15: PD/JT conception & codage 

+ 88/10/23: PD/JT ajout du traitement du flag 1 

+ 88/11/12: PD/JT traitement du flag 1 par setfll 


cotonss ere oseesssepscsesstso ses ssvesescecaceneesessesess res 





GOTO invemd 
GOSUR noquer Interdit le °?” 
GOSUR valide Interdit des paramètres après 
nblignes 
2C#0 E) Paramêtres avant ? 
COYES invCmd oui : “Invalid Cmd” 
le buffer 
D9=(5) =BUFID 
C=0 À 
# C(X) := buffer id 
À 
Ed50 Y-avait pas d'buffer 
=1/0DAL 


























=FLAGI 
P C(Q) := ancienne valeur 
=setfll 
. 
+ Effacer la répétition, autoriser le prompt. Tout baigne 
Editeur, cution des commandes <xcmd.3s 
2.4 Command sit / Quit 
ST-0 14 
GOVLNG = 








1€ 
conoa 


S me 


9647 0Q2A4 
@64B OY2AA 


a 
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conception 





implificati 


essssssssssoesostosessssessessessessecsesesesesse 


interdit les 77° 
interdit tout après ce qu 
Idebut à COUR si be 





force 
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9704 
4795 
0706 
o7@7 
0708 
0703 
9710 
4711 
@712 
9713 
6714 
4715 
9716 
9717 
o718 
9719 
o729 
9721 
9722 
8723 
Ô724 
9725 
4726 
@727 
0728 
6723 
@729 
9751 
0732 
9733 
0754 
0755 
4736 
@737 
9738 
4739 
0740 
9741 
Q742 
@743 
0744 
6745 
4746 
@747 
0748 
@743 
9750 
0751 
9752 
Q753 






Page 


002FD 
092FD 
Q@2FD 
@02FD 
092FD 
@92FD 
@02FD 
902FD 
@@2FD 
902FD 
902FD 
@02FD 
@02FD 
092FD 
902FD 
a02FD 
902FD 
602FD 
902FD 
0@2FD 
002FD 
802FD 
a0341 
00305 
00305 
64503 
90310 
00313 
90313 
40315 
40313 
00317 
69317 
90317 
00317 
40317 
CRE 





60328 
09328 
66332 
68335 
00338 
0833 
6033F 


915 


AREUH ASS 


9754 
4755 
0756 
6757 
075€ 
0753 
0760 


4761 6 


0762 
9763 
4764 
4765 


G7E6 0 


@767 


68337 
00237 
eù 
40543 
04546 
OÙ34A 








0763 05 
0763 60 


9770 
Q771 
0772 
9773 
9774 
@775 
@776 
0777 
0778 
0779 
078Q 


da36r 
0036F 
G036F 
00373 





44373 


60376 
00379 
9427B 
905 


003 
403 


85 Q438F 


6 00387 


DOGEF 
0438F 


0032F 


S0 0QGEF 





9938F 
4933F 
Q433F 
9396 
0039A 





0033F 
@a39F 
04343 
90346 


3 @63AD 


















Editeur, exécution des commandes <:cmd.as 
vz.4 Commande List / Print 
Dose needs sense roses se rene nee ere nos res cosose ns ee 
+ cmLIST 
. 
+ But: lister un certain nombre de lignes à l'ecran 
+ Entrée: 
+ - DA) = LEN(psram) 
+  - D1 = * param 
e - RA = nb de lignes introduites 
+ R1 = Idebut 
. R2 = lfin 
+ R3(S) = 1 si "?" avant la commande 
+ Sortie: par ROUCLE 
+ Abime: tout 
+ Appelle: noquer. lookah, getchr, valide, seek, CKINFO, 
+ Num2D1. SENDWD. SNDWD+,. SENDEL,. CK"ON". POPBUF. setcou 
+ Niveaux: N/A 
+ Historique: 
+ 88/95/18: PD/JT conception & codage 
Denon sense o rene ose ss enr re nes ose ses e ss eseesessssee 
3100 =cmPRNT LC(2)  C=PRINTE)+16+#F 
6704 GOTO L@9a 
3190 =cmLIST LC(2)  (=DISPE)e16+4F 
1B00000  LOWA D9=(5) =MLFFLG 
14€ DATA=C R MLFFLG := type (DISP ou PRINT) 
+ N'accepte pas "7° 
7ERE GOSUR  noque 
+ Analyse une ligne de la forme 
+ [ligne [, ligne» ]] L Cenombre>] 
1Bauana D@=(5) =DERN 
14° A=DATU A ACA) := ligne de fin par défaut 
844 5T<0 à cas standard 
EEE GOSUBR  abCn 
+ Ri = ligne de début 
+ R3 = nombre de lignes (éventuellement 0) 
. 
118 A=R3 ACA) := nb de lignes 
1R420aû Dè=(5) remain 
149 DATO=A A remain := compteu 
111 A=RI 
1900 D@=(2) cour 
140 DATO=A À cour := Idebut 
. 
Editeur. exécution des commandes -*cmd.as 
V2.4 Commande List / Print 
+ Y-a-t-il un N° à la fin ? 
1900 D6=-(2) optn 
AC? C=Q S 
1544 DATA=C Par défaut : non 
8€0000 GOSUBL =1ookah 
4E1 G0C Lo7à pas de 'N' 
31E4 LCASC  'N" 
362 ?A=C B 
Ba GOYES  LABu il ya un ‘N° 
C 316 LEASC ‘ 
366 TA#C B 
] GOYES  L@7h il n'y à pas de ‘N° 
8E4004 LO6Q  GOSUBL =getchr 
1544 DATA=C P optn := #E 
. 
+ On est arrivé au bout. Valider la commande complète : 
. 
7B1E LO74  GOSUB valide 
+ Est-on dans le cas "R3 = 4" ? 
118 CER3 CCAY := nombre de lignes à lister 
8AE ?C#4 A 
69 GOYES  LO8û 
500@ GOTO 1933 nul : sortie. 
La8Q C=RI CCA) := Idebut 
GOSURL ee DA := © ligne 
GOSRUL KINFO prépare HPIL 
+ Boucle d'affichage des lignes 
* cour = numéro de la ligne courante 
+ optn = 4 si option "N' non active 
+ remain = nombre de lignes encore à lister 
+ DO = ligne en cours 
1F0004Q L100 D1=(5) optn 
1534 ADATI S AS) := 1 si ‘N' active 
948 ?A=Q 5 
F3 GOYES  L154 
+ 
+ Affichage du numéro de ligne (option ‘N°) 
+ 
104 DI=(2) cou 
143 A=DATI À ACA) := nombre à afficher 
1F00000 D1=(5) =AVMEMS 
147 C=DATI À 











Page 019 
AREUH ASS. 


0504 
9305 
9306 
0207 
0505 
0503 


60380 
90283 
90385 
40388 
O03BF 
80302 
4819 @03C4 
0811 00307 
0312 00303 
0813 603CB 
0814 @03CD 
0815 @03CF 
0316 90302 
4817 40305 
93518 903DC 
9813 093DC 
9220 @a3DC 
0821 9030C 
0822 Q03E2 
0323 093E4 
0324 003E7 
0825 092EA 
4826 093ED 
4527 003FQ 
9528 003F7 
0829 GO3FE 
0830 Q03FE 
4331 O03FE 
693FE 
06401 
09407 
CLELLY 
n44@c 
6040F 
OùU40F 
49416 
90413 
60418 
Q041€ 
00422 
90425 
00427 
Q942A 
@042A 
94424 
90424 
QGAZA 
00431 
99434 
00434 





Poge cé 


AREUH ASS. 


0254 
0855 
0856 


90434 
Qu434 
00437 








96450 
00430 
Q@43F 
09446 
49448 
00448 
90448 
è0443 
00448 


0368 
2869 0044€ 


9870 
4571 


a@44c 
90452 








— 














Éditeur, exécution des commandes <xemd.as> 
v2.4 Commande List / Print 
135 Di=€ 
07 D=C A DCA) := début du buffer 
80000 GOSUBL =Num2D1 Extrait de KA 
3143 LCASC Éd 
14D DATI=C B 
pe C=0 A 
812 CSLC W CCA) := nombre de chiffres à envoyer 
E6 C=C+1 A pour rattraper le "-1" 
E6 C=2C+1 A pour inclure ”:" 
DA A=C â ACA) := longueur 
DB C=D A CCA) © début du buffer 
135 D1=C D1 := ° début du buffer 
859 STE =InhEOL inhibit EOL pour le cas où 
8F09900 GOSBVL =SENDHD 
, 
+ Affichage de la ligne 
. 
3 0900 L15@  GOSUBL =LIFlen 
DS B=C A BCA) longueur en octets 
163 D@=D9+ 4 D@ := ° partie données 
36 CDOEx 
134 Da=C D® gardé pour plus tard !! 
850 ST=1 =[nhEQL inhibit EOL pour le cas où 
8F08400 GOSBVL =SNDWD+ 
8F20080 GOSBVL =SENDEL EOL 
. 
+ Passage à la ligne suivante 
. 
183 DO était sauvé pendant SENDxxx 
$E00aa 
136 
(a CCA) := nouvelle ligne 
134 
1Fe0ûua D1=(5) cour 
147 C=DATI À 
E6 C=C+1 À 
145 DATI=C À Idebut++ 
1040 D1=(2) remain 
143 A=DATI À 
cc A=A-1 À 
141 DATI=A À 
+ 
+ L'utilisateur nous demande-t-il d'arrêter ? 
£F00000 GOSBVL =CK"ON" N'abime ni C(A) ni ACA) 
5BQ GONC L190 CATIN] hit 
+ Non : on continue donc. 
exécution des commandes <xcemd.as: 
v2.4 mmande List / Print 
548 ?A=Q A 
11 GOYES L200 
655F G0TO L108 et on repart pour un tour. 
° 
+ Fin du listage. Arrêt prématuré. 
DA L19a A=C À 
#rvo0aû GOSBVL =POPBUF Enlever la touche CATIN] 
D6 C=A A 
+ 
+ Fin normal du listage. 
+ 
767C L200 GOSUB setcou COUR := C(A) (qui valait Idebut++) 
&ceuoo L399  GOLONG =BOUCLE 
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Editeur, exécution des commandes ++cmd. as 


V4 Commandes Insert 


! Text 


@573 90452 
0874 00452 


annee no sense sresssses ss sssessnessessevenessssseeseseesese 


9875 00452 cmiNS 
4376 09452 
9877 90452 But: insérer une ou plusieurs lignes dans le texte 





A578 09452 Entrée 

0879 09452 = DCA) = LENiparam) 

988 AN4ST - DI =  paran 

0881 00452 = RO = nb lignes introduites 






9822 40452 
2853 00452 
A834 0452 


svant a commande 


Sortie: par 


9E85 0n452 
0856 90452 Abime: tout 
9837 AQ452 Appelle: setfli. noguer, ckiprm. valide. seek, edtlin 


9888 94452 





TELJMC. ORCOLL, MEMCKL, SWPBYT. LIflen, rpllin. addlin, 





9889 99452 RFLLIN, synchf 
2898 09452 Niveaux: N/A 
98931 24452 Algorithme 

2892 Q4452 St L 











99452 alors mettre le flag 1 à 1 
98452 fin si 
Qe4s2 vérifier les paramètres 
90452 mettre à Lan ns la Reserved-Ram 
ge452 tant que l'utilisateur n'a pas frappé CATTN] 
fa452 È 
00452 la ligne courante 
4200 0 selon la réponse de l'utilisateu 






6381 da 
30 ter la ligne 


: déplacer la 





ligne courante 





conception à 


it du f 





reserved-ram 





asset s s ee 


dorssrvésrornerere tee reresses eme rensserensestesessssess 








=cmiN 
, 
e Fasitionner 139 1 (1 comme et" franche ere 
C £ 
è =cetfll 
. 
+ C(@i n'est pas modifié. 1 vaut ou j£é 
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0973 
0974 
9975 
0976 
0977 
2978 
2973 
4939 
0981 
4932 
4933 















004F1 
Q04r3 
204F5 
A04F5 
Q4Fs5s 
Qa4Fs 
QG4FC 


Q04FF 


60502 
00505 
LEVÉ) 
20505 
40505 
a0505 
94505 
20528 
0050 
20511 
00517 


2 40517 


69517 
90517 
90517 


6 00517 


90517 
00517 





Editeur. exécution des commandes <xcemd.as? 


V2.4 Commandes Insert 
pa A=R 
o7 C=RSTK 
. 
* Selon le code 
. 
8F20000 GOSBVL 
pêl REL(3) 
$ REL (3) 
ESF REL(3) 


/ Text 





4 ACA) : 
C(@) : 


LEN si CENDLINE] 


code retour 


nou 


retour de edtlin 


=TBLJMC n'abime que C(A) 


1300 LATIN] ou [FJC0FF] 
T408 LENDLINE ] 
Tia curseur 


dosoneseressescsresceveseesseseececsssee 


+ Remettre le flag 1 à @ et brancher en erreur 
sossoossseescosesseosseneseeseseesssesse 


w C(5-1) := no d'erreur. C(0) := @ 
ssetfl1 Mettre le flag 1 à à 

4 C(A) := no d'erreur 

=xederr 


dsrvosmessesesosesccesseseecesererrenese 


BF£ Terr CSL 
SE 0090 GOSUBL 
BF CSR 
8C2000 GOLONG 
+ LENDLINE] 
+ Di = 
e DCAD = ACAD = 
« 
137 T400  CDIEX 
1F000ù 


145 





Changement du 


.…..…. 


D1=(5) 
ATI 






L 








1 seul psramètre 













19430 
Gu4ga lu 
TEE 
4 e afficher et éditer la ligne courante 


=(5 3 


E 


















9 40437 146 ATA (A) c 
99494 £E0049 oa l LIF de la ligne 
daang 1Fen0na 
6 6O4A7 136 
QA4AA 145 & curlin := © ligne courante 


Q94AD 154 
904Ba iFou2ga 
9 U@4R7 1574 





:= mode CT" où 1 








o448R » 
a4Be e Mettre je bit de ls reserved-ram pour signaler que nous 
3 JH4BE + sommes en inout 
ocape + 
1F00000 ESJFC ram-reservée 
ff 
sedtlin 
tan + Enlever le bit de la reserved-ram 






49407 
préserver C(9) 
BCA) := LEN si CENDLINE] 


5379 Qÿ4ES 
9971 004ED 156% 
4970 604Fl 


6E96 

















g9E0C 
905€3 
2 OGGSE7 





69505 
PTE 








AASA7 SEA 
3 QU5AA 
GASAA 
445 AL 


iF00000 


147 
1500 


Comnsndes Insert 


DA=(5) 
C=DATA 
Di 
DO=(2) 
C=DATA 
R=t 





T419 C=DATI 
DATO=C 
D1-D1- 
Da=D0+ 

1424 B=B-1 
BONC 





Ajout qu 12/11/88 : 


Éditeur, exécution des 





premier caractère 


Jonqueur de la chaine 
sStradr := ° premier caractère 
strien := lanqueur en octets 


test de l'accessibilite du fichier. 
17/08/89 : test du Flag "resd-only" 


=RDONLY 


=WRITE? 


Terr CCA) = eFACCS, eFPROT ou eFOPEN 


=OBCOLL 

strlen 

A 

A 

A 

A A(A) := mémoire necessaire 
À CCA) := mémoire demandée 
=MEMCKL 

Terr CCA) = eMEM 


commandes <xcmd.3s 











DI := premier caractère 

strlen 

A 

À R(A) longueur en octets 
CCA) := longueur avec padding LIF 
CA) lonqueur + LEN(longueur LIF) 
CA) := fin de la chaîne 


AUMEMS réactualisé 
04 := 7 output buffer 


AA) :=longueur en octets 
longueur LIF 


BE Ts 


F414 


+ OUTBS contient une ligne prète 


e 


D7 

1760000 D1=(5) 
147 C=DATI 
D5 B=C 
1849924 D8=(5) 
1564 C=DATA 
$4E 7C#0 





longueur nouvelle ligne 
longueur nouvelle ligne 


B(A) := numéro de la ligne remplacée 
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1073 OOSEA 
1974 QGSEC 
1975 4OSEC 
1475 GA5EC 
1977 @@5EC 
1078 G05F& 
1079 00573 
1020 @RSFE 
1981 905F& 
1082 Q05F8 
1983 QOSFF 
1984 8602 
1985 00605 
1036 0060B 
1987 0860D 
1988 0060F 
1989 00611 
1830 @@611 
1491 08617 
1092 00517 
1993 9061D 
1994 096£Q 
1995 69623 
1896 
1497 
1098 
1999 
1100 QUECD 
1191 04620 
1102 00620 
1193 00620 
1104 
1195 @ 
1146 à 
1147 
1198 
1149 
1119 
1111 OUE3E 
1112 60558 
1113 60642 
1114 66644 
1115 00647 
1116 D@FAA 
1117 00644 
1113 09651 
1119 06B54 
1128 @u654 
1121 00654 
1122 46654 
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1123 Vu654 
1124 
1125 
1126 à 
1127 
1128 
1129 © 
11934 9 
1131 
1132 
1133 
1134 
1135 
1138 
1157 
1138 
1139 
1149 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
























V2.4 


34 


1094 
143 
882 
73 


18060600 


146 
134 
5 0000 
DE 


2 


DA 
REQoan 
8Epagu 
103 
136 

CA 
64? 


GBDE 


De 
DA 


1800400 
D2 

198 

142 


1640908 
146 


V2.4 


gFaaaoa 


} h40Qn 


LES 
SEA 


1809400 


à 146 


EB 


D2 


3Eaaaa 


8chana 


Editeur. exécution des commandes ‘xcmd.as” 
Commandes Insert / Text 


GOYES 

+ 

+ remplacement 
. 
T454 D1=(2) 
A=DATI 
?C>A 
GOYES 


D4=(5) 
C=DATS 
D@=C 

GOSUBL 
C=D 

C=C-A 
A=C 


GOSUBL 


GOSUBL 
R3=A 
COSEx 
A=h4C 
GAT0 
TerR  GOTO 
+ 
e insertion 
+ 


T464 € 
A 


4 
C+i 
SUR 


6 


T46à 


=DERN 
A 

A 
T464 


curlin 
A 


=LIFlen 
A 
À 
A 
srpilin 


=LIFlen 


zx 


A 
A 
saddlin 


Insertion 


Insertion pour CEof] 


epargne B(A) et D(A) 
CCA) := longueur nouvelle 


CCA) := nouvelle - ancienne 

ACA) := différence de longueur 
attention : ce n'est pas RPLLIN ?Il 
R3 := longueur de la vieille ligne 
ACAD := ° juste après 

Rallonge 

ACA) := longueur de ce qu'on rajoute 


CCA) := 1 ligne ajoutée 


+ Ajout d'une nouvelle ligne dans le fichier 


Dè=(5) curlin 
C=0 A 
R3=C R3 := 4 pour insertion 
A=DATO À ACA) := © juste devant l'insertion 
T494  D@=(5) =FILADR 
C=DATA A CEA) := © file hesde 
+ A(A) = * dernier nibble + 1 de la vieille ligne 
+ COCA) = ‘ file header 
+ R3(A) = longueur de la vieille ligne en nibs 


Editeur, 


Commandes Insert / Text 


. 
GOSBVE 
CONS 
60€ 


GOSUBL 





=HGOSUB 
=RPLLIN 
TerR 


=svncbf 


=COUR 


Tiau 


+ LATIN] ou [FMOFF] 


T3aa 
. 
. 
C=o A 
GOSUBL =setfll 
GOLONG =BOUCLE 


exécution des commandes <xemd.as? 


CCA) = eMEM 


svnchronise l'adresse du buffer 


Remettre le flag 1 à 6. Si on était en mode ‘T” 
c'est une no-op. Mais ca enlève un test et ca diminue 
la taille du code (il n'y à pas de petit profit...) 
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1143 Q065A 
1156 QG6SA 
1151 0968A 
1152 49584 
1153 9068A 
1154 80654 
1155 QO6SA 
1156 40624 
1157 0963A 
1152 00684 
1153 09684 
1160 0063A 
1161 9068A 
1162 GDECA 
1163 40634 
1164 0062A 
1165 0068A 
1166 90684 
1167 0068A 
1168 0068A 
1169 0968A 
1170 O0GSA 
1171 0O6EA 
1172 @06SA 
1173 GG6EA 
1174 GOESA 
1175 00684 
1176 00684 
1177 0068A 
1178 0Q62A 
1179 Q968A 
1164 00684 
1181 40G2A 
1122 0068 
1183 AO6ESA 
1184 QUERA 
1185 QOGEA 
LS6 ë 
1187 
1188 @ 
1189 9 
1194 
1191 320040 
1192 96699 ECU90û 
1193 00696 

1194 60696 7F4B 
1195 00634 

1196 64694 7174 
1197 0669E 4BE 
1198 206A1 
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ê 


S. V2.4 


1199 G6EAI 

120à O0BAI 

1201 @06A1 

1202 60641 7859 
1203 4UGAS 

1204 OUEAS SE00OO 
1295 QOGAB 44E 
1206 OAGAE 

1207 YAGAE 8E0000 
1205 006RA 

1209 @0EBA 

1210 GOERA 

1211 606B4 

1212 D06B4 

1213 @0EB4 

1214 Q@6B4 76DA 
QPERS 

o26BS 1F00000 
606BF 118 
AQBC2 1557 
@66C6 

AOC 1B00AG0A 
Oa6CD 146 
Q@6DQ SE000N 
0Q6D6 

09606 1F00000 
0960D 1577 
1226 006E1L 108 
Q0GE4 

à GO06E4 136 

a O46E7 1B00000 
QQGEE 144 
Q0bFL 1900 
AAEFS D2 

: QAGF7 144 
QUE A 

5 DURFA 

5 UEFA 

AABGFA 

GQGFA 

QÔGFA 1FO000@ 
04781 147 
eè7a4 DS 
ea7a6 1000 
0@70A 147 
@070D 134 
69710 1D00 

6 06714 143 
90717 1Doû 
243 4@71R 147 





Editeur, exécution des commandes <xcmd.as?> 
Commande Search 


Roontossene ses eenés eee seesrescssecsconecossneerssensessesre 


+ cmSRCH 


. 





+ But: chercher une chaîne dans le fichier 
+ Entrée: 

+ - DCA) = LEN(param) 

+. - D1 = ° param 

+ - RO = nb de lignes introduites 

e RI : Idebut 

° R2 : Tfin 

$ R3(5) = 1 si ‘?" avant la commande 
+ Sortie: par BOUCLE 

+ Abime: tout 

+ Appelle: quer?, set.+$, GETSRC, getchr, valide, seek, 
+ SRCADR. query. TBLUJMC, ENDPOS, setcou 

* Niveaux: N/A 

+ Algorithme: 

+ compiler la chaîne à chercher 

. tant que non trouvé 

faire 

. parcourir le fichier pour trouver une occurrence 
n si non trouvée 

+ alors sortir en erreur 

e fin si 

° si mode # "?" (query) 

* alors 

. positionner la ligne courante 

, retour 3 la boucle de l'éditeur 
+ fin si 

+ demander confirmation 

. si confirmation = "ok" 

. alors 

. positionner la ligne courante 

. retour à la boucle de l'éditeur 
+ fin si 

+ fin tant que 

«+ Historique: 

+ 82/47/02: PD/JT conception & codage 

+ 88/11/13: PD/JT utilisation de svRIR2 


onto ever ses esseessenereeeeesenesesesencesserstensess 





notfnd LC(4) {=id)"(=eNFND) "Not Found” 


erreuR GOLONG =xederr 

zcmSRCH GOSUR quer?  QUERY := R3(CS) 
GOSUB  set.+$ 
Goc notfnd 





Editeur, exécution des commandes <xcmd.as? 
Commande Search 


. 


. 


Sauver R1 et R2 dans Ideb et 1fin 


GOSUB  svRIR2 
GOSURL =GETSRC analyse. compile chaine de recherche 
Goc erreuR Erreur 
GOSUBL =getchr passer le delimiteur éventuel 
. 
+ L'état de la Carry nous importe peu, car on est soit 
+ sur le "/" (et alors Cy = 6 en sortie). soit sur le EOL 
+ et à ce moment, ii ne restera plus de caractère à lire. 
+ Et la commande sera donc finie de toutes manières. 
+ 
GOSUB valide 
Di={5) =FUNCRO FUNCRà := RQ 
C=Rè 
DATI=C 4 
D4=(5) deb 
C=DATO À 
COSURL =seek DO := ° première ligne 
Di=(5) =FUNCRà 
C=DATI 4 
RA=C 
CDGEx debadr := * ligne début 
D@=(5) debadr 
DATA=C A 
DG=(2) offset offset := 0 
C=0 A 
DATAE=C A 
, 
+ while non trouvée 
+ faire 
+ 
s190 Di=(5) offset RCA) := offset 
C=DATI À 
B=C A 
Di=(2) debadr D@ := * début ligne LIF 
C=DATI À 
De=c 
DI=(2) Ideb  A(A) := ligne début 
A=DATI À 
DI=C2) fin  C(A):= ligne fin 
C=DATI À 
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Page VIS Editeur, exécution des commandes <scmd.a 
AREUH ASS. V2.4 Commande Search 
d971E . 
èo71E + ACA) = ligne de début 
9a71E + CEA) = ligne de fin 
dQ71E e D9 = ° ligne LIF 
è071E + BCA) = offset 
a071E + RO(7-0) = caractéristique du puffe 
@Q7IE . 
ENTER GOSUBL 2SRCADR sesrch line in 
+ 
+ ACAD K\= 4 
+ Di = SAT 
+ CCA) ongueur vecurrence C2 po 
vé7e4 + De = 
20724 + 




















file 


eb} 
rhin) 
ubelle...) 





20724 
. 
+ Libération des registres À 
$ 90724 + Attention ! Le registre D ec 
00724 . 
ÿa724 BA) 
3 09726 155 AÇAY := © longueur LIF 
99723 1F0000a debadr := ° longueur LIF 
9 141 
1004 Ideb := no liqne 
37 DA 
4 40733 141 on à libere A(AY et DI 
 Qa73C . 
9973€ si 
0 L = erreur 
. 
BONC Ser match not found 
#: fe 
. e 
+ urant 
+ 
irmat 
a deb33 - jueur LIF 
w 





Be 











oo 

















d479F 
da743 
497A3 3 
1232 GG7AF 


7713 





eu 
:ENDPOS on à fini avec 
=ROUCLE 


5354 








it (ou CATIND) 
match found 
1917 00758 27F continue 
13 2976E 
3 + 
d 
} =ENDPOS 
90731 natfnd 
20795 . 
+ Match found ! 
e \deh = numéro de 13 ligne trouvée 
. 
1F200909  S340 deb 
C 147 A CCA) := numéro liqne trouvée 


le buffer 
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1335 
1336 
1337 
1338 
1939 
1340 
1341 
1342 
1943 
1344 
1345 
1346 
1347 
1345 
1343 


Q07AF 
O07AF 
Q07AF 
d07AF 
Q@7AF 
GQ7AF 
RQ7AF 
@Q7AF 
A07AF 
QA7AF 
QQ7AF 
aa7AF 
AQ7AF 
GO7AF 
QA7AF 
QA7AF 
@@7AF 


O07AF 


5 097AF 


Q07AF 
AG7AF 


: Q07AF 


@67AF 


a QQ7AF 


dO7AF 
RA7AF 
Q07AF 
d07hF 
@e7AF 


5 407AF 


Q07AF 
aQ7AF 


9 @07AF 


ta7AF 
da7AF 
dO7AF 


à de 
Q07AF 

















32a00ù 
8Ce0a9 





£E9898 
De 

è 82c07aû 
Qa7ED 

447ED 1899000 
907F4 144 
007F7 164 
QA7FA 140 
997FD 8E0808 


4 00603 


98507 


A LEUE 


7039 
450 


DAEGA 


È hO5AA 


COLE 

09508 

à 90264 1F040060 
3 90511 1574 

SE 0440 


51€ 


1260040 
DZ 
144 


Editeur. exécution des commandes <xcmd.as?> 
Commande Replace 





cmREPL 


But: remplacer un motif par un autre dans le fichier 
Entrée: 
- D(A) = LEN(param) 

= param 


. 

e 

+ 

e 

. 

. 

° 

° 

. Idebut 

+ 1fin 

: S) = L'si 
+ Sortie: par BOUCLE 
+ Abime: tout 

« Appelle: quer?. defaut. getchr, GETSRC, valide, CALCab, 
+ SRCLIN. LIFlen, MEMCAL. MOVEeM, REPLIN, FMILIF, RPLLIN. 
+ syncbf, rpllin. UPDTRG, ENDPOS, setcou 

+ Niveaux: N/A 

+ Algorithme: 

° compiler la chaîne à cherche 

+ tant que ligne « lfin 

° faire 

+ parcourir le fichier pour trouver une occurrence 
. 

+ 

. 

. 

+ 

+ 

° 

. 

. 

+ 

+ 

. 

, 

+ 

. 

. 

+ 

+ 





avant la commande 


copier la ligne dans OUTBS 
€ 
répéter 
si mode = ” 
si réponse 
alors 
remplacer dans OUTRS 
fin si 





" alors poser la question 
"Y" ou pas de "?” 





chercher une autre occurrence sur la même ligne 
ssqu'à ce qu'il n'y ait plus d'occurrence 
j 
si ligne modifiée alors remplacer dans le fichier 
fin tant que 
Historique: 
16/e7 
88/11/12: 





T conception & codage 

t du test d'accessibilité 
séparation de set.db 

1 Tutilisation de svRIR? 
9/86/17: test du flag “read-only" 


tosborerereesre ss ssemeressosereoseeeseeesescesensesereneste 







Notf 
Erre 


id)"(=eNFND) "Not Found” 


G =vederr 





quer?  QUERY := R3(S) (°?° ou pas) 





n des commandes <xemd. ae 





















° 
OSUBI set.db (.. <ldebut 
+ 
+ RK1 et KR? contiennent maintenant les bonnes bornes. 
slors les sauver dans Ideb et fin 
nalyse et compile le motif 
Erreu 
délimite la chaine de remplacemen 
pas d'erreur 
. 
+ Gé e erreur, mais libère auparavant le buffer 
# ur la chaine générique. 
Rerr A D(A) : =numéro d'erreur 
=ENDPOS n'abime pas D(A) 
A restaure dans C(A) le No d'erreur 
zyederr 
Ra3e emp 
remp+0 := nb de caractères 
remp+5 := ° chaîne de remplacement 
getchr passer le delimiteur 
+ Lorsque "valide" détecte une erreur, il faut libérer le 
+ buffer utilisé pour stocker la chaîne générique 
+ 


GOSUB valid? 





oc Rerr Libérer le buffer 
. 
+ Tester l'accessibilité du fichier. Teste s'il est en Ram, 
+ si tel est le cas, que le fichier n'est pas sécurisé 
+ Changement du 17/06/59 : test du flag "read-anly" 
+ 
D1=(6) =RDONLY 
C=DATI 
GOSURL =WRITE? 
£ONC Rerr C{A) = eFACCS. eFPROT ou eFOPEN 
Gé=(5) dern dernière ligne modifiée 
Ce ä 
DATU=C A dernière ligne modifiée := @ 
. 
+ Calculer les coefficients à et E pour le remplacement 
+ Ces coefficients sont calculés une fois pour toutes et 
+ permettent de connaître la longueur de la chaîne 
+ remplacée en fonction de la longueur de la chaîne 
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1435 0982A 
1436 09224 
1437 00824 
1438 00839 
1439 00834 
1440 00837 
1441 0083D 
1442 00830 
1443 0635D 
1444 00830 
1445 0053D 
1446 90830 
1447 @983D 
1448 
1443 


00830 
60830 
1450 0935D 
1451 99844 
1452 @@847 
1453 0084A 
1454 00840 
1455 9035 
1455 
1457 
1458 4 
1459 
1469 
1461 
1462 
1463 
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1485 
1486 


AS7B 
09578 
1427 QG57B 
1488 04278 
1489 9047B 
40378 





AOSAZ 
00345 
DAS 
O98AS 
908A5 
VELE) 
00845 
9ABSAC 
Qa8AC 
QOSAE 
90885 
1519 09888 
90888 
00888 
6asBs 
04883 





Q08c3 
4 Q9ECE 





Editeur, exécution des commandes €xcmd.as? 
















LI 
136 


iBaguuu 


> 148 


4 





V2.4 


à 130 


SEUv90 
E6 
ER 


cé 





132 
184892 
146 


SFoaoua 


cg 
1RA00Q0 
144 


1F0n09a 
15F9 
14e 


1EAvOn 


sm} ie 2: € 


+ 


- 


vs... 


+ 


CP 








v2.4 Commande Replace 
# originale. Ils sont placés en haut de TRFMEF. 
. 
144000 DO=(4) remp 
15€9 C=DATS 14 
108 R3=C R3 = motif de remplacement 
8E2000 GOSUBL =CALCab Voila, c'est Fait ! 
. 
+ Boucle de remplacement 
+ Assertions : 
+ Ideb = no dernière ligne où on a trouvé quelque chose 
+ fin = no ligne limite 
+ dern = no dernière ligne modifiée 
+ remp = 14 q. pour conserver R3 entre les appels à REPLIN 
. 
1890000 R120 ideb 
142 A 
164 CIFfin)-Cldeb) 
146 À 
8B6 A 
ea 304 On est arrivé au bout 
, + 
Rk erche 
+ R@(7-4) = caractéristiques du buffer 
+ AA) = ligne de début 
+ C(A) = ligne de fin 
. 
eaaa LOSUBL  =SRCLIN 
e GOL R110 trouvé ! 
r20a  GOTO RaQ0 terminé. On ferme. 
ACA) = numéro de la ligne trouvée 


CCA) = longueur de l'occurrence trouvée (en octets) 


Dé = occurrence trouvée 











Di = début ligne (longueur LIF) contenant l'occurrence 
R119  RSTR=C RSTK := LEN(occurrence) 
COGEX CCA) := ° occurrence 
DG=(5) eavlin savlin := (no ligne, © ligne) 
DATH=A À savlin + 4 :z no ligne trouvée 
DA=Dg+ 5 
ADIEX ACA) := début ligne LIF 
DATU=A A savlin + 5 := * début ligne LIF 
C:C-A A CCA) offset de l'occurrence 
RSTK=C RSTK := offset cccurrence 
RSTK(1) = LEN (occurrence) 
RSTK(G) = offset occurrence dans ls ligne 
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1535 
1536 
1537 
1538 
1529 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1543 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 


1558 


1559 
1560 
1561 
1562 
1553 
1564 
1565 
1566 
1567 


09806 
00806 
LLENE 
@02D3 
GO8DE 
008E1 
Qa8E1 
008E1 
008E1 
Q08E1 
908E1 
098E1 
0031 
098E1 
008€ 1 
008E7 
QQSEA 
O08EE 
008F2 
20872 
90272 
o08F2 
Q08Fe 
90372 
dar? 
Q08F4 
008FD 
90909 
00303 
49906 
96908 
20908 


1563 009 


1563 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
158 


1582 





04398 
00308 
20908 
LIEU 
LLELES 
90306 
06998 
909% 
a090F 
09912 
4916 
69916 
44416 
08916 
99916 
68919 





Éditeur, exécution des commandes ‘xcmd.as? 
Commande Replace 











savlin + 4 = no ligne trouvée 
savlin + 5 = ‘ ligne trouvée 
ACA) = ° ligne trouvée 
Maintenant, amener la ligne dans OUTRS 
DO := ° début ligne LIF (longueur) 
=LIFlen C(A) := line length in bytes 
A 
A CCA) := LEN + 2 
A CCAN := longueur en quartets 
CEA) = amount to check 
GOSBVL =MEMCKL 
GONC R124 pas d'erreur 
GOTO Rerr “nsufficient Memory" 
RCA) = length in nibs 
Du = ut ligne LIF 
R124 ADGEX ACAY = début ligne LIF 
DQ=-(5) =OUTRS 
C=DAT4 A CCAY := 7 début OUTBS 
ACA) = source address (° ligne LIF) 
CCA) = dest address (OUTBS) 
BÇA) = length in nibhs (longueur LIF) 
GOSBVL =MOVEeM 
En sortie, À, B et © sont inchangés 
C=C+R A 
DA=(5) =AVMEHS 
DAT@=C À AVMEMS := © fin du buffer 


+... 


RSTK(1) = LEN (occurrence) 
RSTR(@) = offset occurrence 


savlin + @ = no ligne trouvée 
£ 









savlin + 5 = ° ligne trouvée 
Préparer les registres pour REPLIN 
cemp 
1è 
R3 := motif de remplacement 
Di=(4) =OUTR: 
A=DATI À AA) es 
LERSTK CC4) set de l'occurrence 
(zC+A A C4) | occurrence 
Da=C DA := 7 occurrence 
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1535 
1586 
1587 
1588 
1583 
1399 








9991F 
dag22 
49922 
04922 
00922 





8 DE 





oagal 
0941 
40143 
t094B 
00348 


603 00948 
604 09948 


















aaga8 
00948 
O0g4E 


8 09952 


00957 
00954 
00954 


2 @095A 


90954 
0095A 


5 0095A 
6 4095A 


QQ95A 


18 @Q95A 











3 04360 


40460 
00960 
#0 


3 90962 


04964 
20966 
00966 


dn270 


SEaano 





















Editeur, exécution des commandes <xcmd.as> 
V2.4 Commande Replace 
o7 C=RSTK CCA) := LEN (occurrence) 
1E0000 Di=(4) savlin 
143 A=DATI À ACA) := no de la ligne trouvée 
. 
+ (OUTBS..AVMEMS) = chaîne à traiter 
+ R3 = motif de remplacement 
+ DO = ‘ occurrence trouvée 
+ CCA) = longueur de l'occurrence 
+ cosffa et coeffb calculés par CALCab 
+ ACA) = no de la ligne en cours 
+ 
8E0900 GOSUBL =REPLIN 
5AQ GONC R150 pas eù d'erreur 
62FE rerr  GOTO Rerr on libère le buffer 
69EQ r28@  GOTO R200 rallonge 
+ 
+ C(@) = code de retou 
+ savlin + 4 = no de la ligne trouvée 
+ savlin + 5 = début de la ligne dans le fichier 
+ (OUTRS..AUMEMS) = la ligne remplacée 
. 
1F00009 RI15Q  D1=(5) =TMP3 
1550 DATI=C P TMP3(9) := code de retou 
822 5B=<0 
81E CSRÈ 
832 ?SB=0 réécriture nécessaire ? 
&E GOYES r20û non 
, 
+ Réécriture nécessaire 
+ TMP3(4) = code de retour 
+ savlin + 4 = no de la ligne trouvée 
+ savlin + 5 = * début de la ligne d le fichier 
+ (OUTBS..AVHEMS) = la ligne remplacée 
. 
+ 
+ RPLLIN abimant RO, il faut le sauvegarder momentanément 
+ 
180000@ D@=(5) =FUNCRO 
118 C=RA 
1507 DATA=C E sauvegarder R@(7-@ 
. 
+ La ligne dans OUTRS à été modifiée, 11 faut remettre ure 
+ longueur LIF et un padding éventuel 
+ 
850 ST=1 è ajuster AVMEMS si besoin est 
£E40@6 GOSUBL =FMILIF formatte la ligne en COUTRS..AVMEMS) 
Editeur, exécution des commandes <xcmd.as? 
V2.4 Commande Repiace 
4Ac Goc rerr 
. 
+ Préparation de l'appel à RPLLIN 
, 
1Fa0oua S+savlin 
147 A 
134 Dà := ° ancienne ligne 
8E000û =LIFlen 
143 := length of old line in nibs 
A 
06 RSTK 4e " 
C 136 
CA A ACA) = last nih + 1 of old line 
1Raaaga DG=(5) =FILADR 
146 U=DATO A C(AD = file header 
+ 
+ (OUTBS..AVMEMS) = ligne à remplace 
+ ACA) = = address of last nibble + 1 of old line 
+ C(A) = 7 address of file header 
+ R3CA) = length of old line in nibs 
. 
eFaaean GOSBVL =MGOSUB EDIT peut étre derrière le fichier 
40400 CON(5) =RPLLIN 
429 G0C rerr Il y 3 eû erreur. On libère le buf 
+ 
+ RSTK = longueur vieille ligne 
+ BCA) = longueur de la nouvelle ligne 
+ output buffer collapsed 
+ 
+ Avant tout, récuperer l'adresse du buffer dans leque 
+ est stocké le tableau des pointeurs sur les lignes. 
° 
SEPuaa GOSURL =syncbf ne touche pas à RB(A) 
, 
+ Ensuite, actualiser ce fameux tableau 
. 
@7 CERSTR CCA) := ancienne longueur 
D4 A=B A ACA) nouvelle longueur 
EA A=A-C A ACA) := (nouvelle - anciene) 
1Buaaaa D0=(5) savlin savlin + @ = numéro de la ligne 
146 C=DATA À 
Ds B=C 4 RCA) := numéro de la ligne remplacée 
. 
+ Réactualisation du tablesu de pointeurs : 
+ B(A) = numéro de 1a ligne remplacée 
+ A(A) = lanqueur nouvelle - longueur ancienne 
, 





srpllin atten : Ce n'est pas RPLLIN !! 
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169$ RO9FC 
eut à présent restaurer RÛ 1693 O89FC oos ones s vs soveseneosessesesesessescesesssresse 
1780 @a9FC + cmHELP 
1791 @09FC . 
restaurer RO(7-0 1702 @89FC + But: afficher une aide 
1793 099FC «+ Entrée: 
1704 089FC € - DCA) = LEN(param) 
GOSUBL =UPDTRO met à jour RO(7-3) après le move 1705 à09FC + _- Pl = ° param 
6 R1$û pas d'erreur 1706 OA9FC e _- RO = nb de lignes introduites 
svederr System Error 1707 @09FC ° R1 : Idebut 
. 1703 409FC ° R2 & Tfin 
+ On 3 modifié la ligne. C'est denc potentiellement la 1709 009FC ° R3(S) = 1 si ‘?" avant la commande 
+ ligne courante finale 1710 609FC «+ Sortie: par BOUCLE 
» 1711 @49FC ° Abime: tout 
ane saviin 1712 009FC + Appelle: noquer, lookah, getchr. valide, poscmd. dspmsg 
Û 146 4 CiAY := numéro de cette ligne 1713 009FC + KEYWT. dspmsg. RPTKY. FINDA 
F 1AUGAU gern 1714 009FC + Niveaux: N/A 
5 j44 DATR=C 4 dern := dernière ligne modifiée 1715 @@9FC + Historique: 
ê ° 1716 @09FC + 23/10/23: PD/JT conception & codage 
$ + Le remplacement est fini. 1717 @09FC + 38/10/29: PD/JT ajout de la repetition 
$ + 1718 da9FC + 88/10/29: PD/JT ajout du paramètre de Help 
ë CAT 1719 € sons soso ses seems enescsoressncsosssenenescesoneessesecses 
$ 1700 Ga9FC 
si on continue ou si on arrète. 1721 à C SE307F =emHELP COSUBL noguer 
1721 90AN2 SEQ200 GOSUBT =lookah 
Di=(5) 1723 A0485 404 GoC H50ù “help” tout seul (tous les sujets) 
RE 1724 @040B 3183 LC(29 "5 
retour (Q-1 ou 2-3) 1725 QnAGF 962 ?A=C B 
retour (9 ou 1) 1726 @GA12 73 GOYES  H504 
1727 Q0A14 + 
1 DQALA e Help avec un sujet 
QAALA + A(B) = le sujet (à vérifier) 
à DHALA . 
AAÏA 3 COSUBL =getchr 
in 32 QAATA AE B=A B B(R) := caractère lu 
L{AY = ligne qu'on vient de traiter 3 GnAID SEB67F GOSUEL valide n'abime pas B(B) 
A=B 8 ACB) := caractère lu 
. 
ideb += dernière ligne traitée + 1 + A(B) = le sujet 
° 
EL =poscmd 
C NotFnd "Not Found” 
. 
alors + Commande trouvée : 
+ CCA) = DEA) = index de la commande. 
LC(4) {=id)"(=teHt00) 
fatsD A CCA) := numéro du message 
GOSUEL =dspmsg 
Ré Siren = #4 Editeur, tion des commandes ‘xemd.3s 
Commande 

















ECU9a0 





1761 OAA47 



























2 aA49 . 
> AñA4Q . 
quads + donc sfficher les ages teHLo à teHLii 
44443 . 
O9A43 3EF37F 4504 L valide 
GUAAF 1B004009 ) curend 
QUASE ACQ C=0 
544 uremd := 0 
D J4b4agh Ha {=id) (=teHLü@) 
Dè À 
curemd 
8 LCA) := teHLO8 + curcmd 
msg afficher 
96873 
54479 + 
ÉPLYE] + Attente de l'aopur sur une touche 
9947 . 
71 04879 if (rev already pressed) fe repeat +/ 
? GUA7I + then get key 
3 99479 . else uait key 
n6474 «fi 
+ 
q SFongan GOSBVL =RPTKY Y-a-t-il une touche en répétition ? 
570 GONC H525 Non : il faut utiliser KEYWAITS 
D4 A=B À Oui : ACA) = touche 
Loc H530 BSE:T: 
H525  GOSUBL =kEYHT Attendre. ACA) = B(A) = touche 
H530 
. 
+ A(B) = touche pressée 
AOAGE . 
YOAZE 1820000 D4=(5) eurcmd 
86 40AGS 1560 C=DAT4 P 
49433 DS B=C À B(9) := curemd 
OUAIB 
4 A9AGB 5F00000 GOSBVL =FINDA n'abime ni B(CA) 
S6AA2 23 CONC2) #3 F3 
QNAA4 A19 REL(3) Hup 
2 OOAA7 33 CONC2) 423 Cv] 
49AAG 020 REL(3) Hdoun 
OGAAC ZA CON(2) #32+112 [a] 
95 QOAAE 920 REL(3) Htop 
G6ABL GA CON(2) #33+112 [av] 
AQAE3 R23 RELC3) Hbot 
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1798 O0ABE 00 NIEHEX a 1876 00B1F + R3 = nombre de lignes à joindre (déjà testé) 
1793 O9AB3 . 1877 00B1F 
1800 QQABS + Touche normale. Retour à la ligne de commande 1878 00B1F 8E966F GOSUBL valide 
1801 O0ARS « 1879 Q0B25 
1802 Q9AR2 8C4400 GOLONG =ROUCLE 1389 00825 # 
1803 GOABE 1881 00825 + Test de l'accessibilité 
1804 OGABE 303 Hup ?B=0 1882 00B25 + Changement du 17/86/89 : test du flag "read-only” 
1805 99AC1 32 GOYES 1883 90B25 . 
1896 OQAC3 AQD B=B-1 1884 @0B25 1F00009 D1=(5) =RDONLY 
1897 OQAC6 5D1 GONC 1885 90B2C 1574 C=DATI S 
1808 @OACI 300 Hdoun LC(1) 1886 4030 8E0000 GOSUBL =WRITE? 
1809 Q0ACC 989 78>=C 1887 09836 537 GONC Jerr CA) = eFACCS. eFPROT ou eFOPEN 
1819 OQACF 51 GOYES 1838 09839 
1811 99AD1 B45 B=B+1 1889 00839 1B90000 D@=(5) remain 
1812 00AD4 5F@ GONC ET 1899 00840 11B C=R3 
1813 @OAD7 A8I1 Htop B-=0 1891 @6R43 144 DAT&=C A remain := nombre de lignes restantes 
1814 QGAADA 590GQ GOTO 1892 00846 1900 D0=(2) prem 
1815 QUADE 300 Hbot  LC(1) 1893 @0B4A 119 C=RI 
1816 QQAEI A85 B=C 1594 Q0B4D 144 DATO=C À prem := numéro de la ligne de début 
1817 GàAEA4 1895 0050 * 
1818 GOAEA 1896 99850 + C(A) := numéro de la ligne à chercher 
1819 O@AEA4 1397 00B54 e 
1829 OQAFA A4 1892 90B5Q 8E0000 GOSUBL =seek abime tous les registres et TMPS 
1821 OUAE7 1B449ñ4 1599 00856 #: 
1822 QQAEE 1500 1380 00856 + DO = début de la ligne 
1823 O0AF2 GAGF 1901 90856 . 
1824 GOAFE 1302 00856 136 CDQEX CCA) := © première ligne 
1903 90859 108 R@=C RGCAS := ° première ligne 
1944 Q9B5C 109 R1=C RICA) := ligne courante 
1995 G0B5F 
1906 40B5F 1B00000 D4=(5) remain 
1997 00B56 146 C=DATO À 
1948 40B69 10B R3=C R3CA) := nombre de lignes restantes 
1909 80B6C , 
1919 99B6C + Préparer le buffer 
1911 O0BEC . 
1912 @R6C 1B00000 D0=(5) =OUTBS 
1913 09B73 142 A=DATA A 
1914 @0B76 D2 C-@ A 
1915 @0B78 304 LC(1) 4 
1916 @0B7B CA A=A+C A 
1917 @GB7D 164 DO=DQ+ 5 DO-(5) =AVMEMHS 
1918 00260 140 DATO=A À 
1919 90883 
1920 00P23 + 
1921 @0BS3 + Invariant de boucie 
1922 00B83 + (OUTBS...OUTBS+3) = place pour la iongueur LIF 
1923 00853 »  (OUTRS+4..AVMEMS) = lignes déjà écrites 
1924 00833 #* R3 = nombre de lignes restant à joindre 
1925 @6B83 +  R1 = ligne à joindre 
L== | 
| 
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1826 96AFE 1926 09BS3 + prem = numéro de la première ligne 
1527 OOAFE donesnss sonores semestre ones one sesenesensseseseseseses 1327 00B53 « RO = ‘ première ligne 
1828 OGAFE + cmJOIN 1923 00B33 # 
1829 QAAF6 . 1929 00B83 11B J500 C=R5 
850 94AF6 + But: joindre deux (ou plus) lignes 1934 0@RS6 CE C=C-1 À 
1631 QOAFE + Entrée: 1931 06888 560 GONC J51 
1832 OUAFÉ +. - DCA) = LEN(param) 1932 AQBEB 6B21 GOTO J680 sortie de la boucle 
1833 OA4AF6 +  - Di = * param 1933 GOREF 10B J519 R3=C 
1834 QRAFS +  - RO = nb de lignes introduites 1934 Q@R92 . 
1835 09AFE + R1 : Idebut 1935 99892 + A-t-on assez de place ? 
1536 OUAFÉ + RE : lfin 1936 0092 . 
1837 QOAFR . R3(S) = 1 si ‘?" avant la commande 1937 00892 119 C=R1 
1538 O6AFE # Sortie: par ROUCLE 1938 A6895 134 D@=C 
1839 AGAFE + Abime: tout 1939 44298 SEOPQA COSUBL =LIFlen C(A) := longueur en octets 
1840 QAAFR + Appelle: quer?. abCn. WRITE?, valide, seek, LIFlen, 1949 OOPJE C6 C=C+C A CEA) := . en quartets (sans long) 
1841 OGAFG + MEMCKL, MOVE+M, FHILIF, query, TBLJMC, RPLLIN, dellin, 19441 AARAG EFOG008 GOSBVL  =MEMCKL 
1842 O9AFE # setcou 1942 QARA7 580 GONC J520 Pas d'erreur 
1643 QOAFE + Niveaux: N/A 1943 O0BAA 
1344 OGAFS + Historique: 1944 O8BAA + CCA) = “Insufficient Memory" 
1845 O8AF6 + 88/10/23: PFD/JT documentation 1945 O0BAA 8C0400 Jerr  GOLONG =xederr 
1846 OAAFE # /19/29: PD/JT conception & codage 1945 09BBQ 
1847 QAAFE . /06/17: PD/JT test du flag “read-only" 1947 QQBRO J528 
1548 QOAFE . 59/08/07: PD/JT valeur "fin" par défaut si 1 argument 1948 Q0BBQ * 
1849 O9AFE sensosoneress rene sene sente sons esse esse sesssseseseeseseses 1949 00BRO + DO = début ligne LIF 
1854 OAAFE 1950 60BRA + 
1851 O@AFE SEDERF =cmJOIN GOSUBL quer?  QUERY := R3(S) 1951 90BB0 + Préparer les paramètres pour MOVEsM 
1852 QQAFC . 1952 0@BRO + source = ligne courante 
1853 GA@AFC + Analyse une commande de la forme : 1953 W4BRQ + longueur = 2+LEN (ligne courante) 
Q0hFC x Celigne» [. ligne ]] J [nombre] 1954 00BBO » dest = AVHEHS 
OQAFC . 1955 008BQ L 
GOAFC 1956 A@BRA 8E0000 GOSUBL =LIFlen C(A) := longueur en octets 
CLLYES . 1957 @ABR6 102 R2=A sauvegarder la longueur totale 
GAAFC + Correction du 89/08/07 : s'il y à un argument, alors 1958 OABEA C6 A C(A) := longueur en nibs 
259 QUAFC + la valeur par défaut de "fin" = "début" + 1 1959 Q0BEB D5 A B(A) := block length 
QUAFC . 1960 64RRD 
QRAFC 110 Re 1961 C0RBD 163 DO=D0+ 4 sauter la longueur LIF 
OQAFF BAG 7A=0 A 1962 @0PCO 132 ADQEX ACA) := source address 
QaBQz EQ GOYES  J054 1963 @@RC3 
aeRa4 111 A=RI ACA) := ]debut 1964 Q4BC3 1B0000Q Dè=(5) =AVMEMS 
365 00807 510 GONC Ja64 BEST: 1965 OABRCA 146 C=DATO À CCA) := dest address 
d2s0A . 1966 A@BCD . 
aepea + Fin de la correction du 89/08/07 1367 4@BCD + A(A) = source address 
 COBAA , 1968 @0RCD + BCA) = length of block in nibs 
A DABOA 1E9UUOQ  JA5Q  DAa=(5) =COUR 1963 @aBCD + C(A) = dest address 
@aBil 142 A=DATA A ACAD = . 1970 A2RCD , 
04R14 E4 J069 A=A+#t À lfin = .+l par défaut, au idebut+l 1971 @@RCD SFO00Q GOSBVL =MOVE+M abime DO et Di 
90B15 850 ST=1 à cas non standard 1972 O@RD4 . 
@0R12 SE7F6F GOSUBL 3bCn 1973 @nBD4 + Ajouter un espace et mettre à jour AVMHEMS 
06B1F + 1974 O@BD4 . 
Q0B1F + Ri = ligne de début 1975 @0Bn4 C9 C=C+B A CCA) := nouveau AVMEMS 
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1976 00806 134 De=C SCAVMEMS se = 

1977 60BDa 3102 LCASC # 

1978 @@B0D 14€ DATE=C BE 

1973 60RER 161 Da=p@s © 

1988 QOBES 136 CDOEXx 

1951 QURER 1B0vARO D9=(5) =<AVMEMS 

1982 OUBED 142 A=DATA À AÇA) := ancien AVMEMS 
3 QA8FE 107 R2=A RICA) := ancien AVMEHS 












@QRF3 144 DAT#:C À AVMEMS := nouveau AVHEMS 
5 098F6 . 

e0BF6 
coB8F6 LS 

Qo8F6 1RnQngA D0=(5) =QUERY 


. 


Mode interactif 


C0BFD 1564 CaDATR 5 

à OC! 944 C=ù 5 
@aca4 77 GOYES  J534 Non 
aaç26 s 


+ Première jointure ? 


vece6 L1R 
oCeg E6 
QRCOB 148004 
335$ 9aC11 142 
1929 AûC14 SAT 
200% 69017 46 
2981 eac19 

2402 
2003 
2004 













et eventuellement revenir 


est négative 


Il faut poser 
en arrière si 






….. 


RI car query l'abime 





:= long. jusqu'avant la ligne 





teur, 


Commande 


<cmd.3s 





FL := ancienne valeur sauvegardés 


LATIN] ou £0] ou CFJOFFJ 





le fichier 





(A) := ligne courante 


longueur totale 





ne 


à FA) := ligne su 








1 faut enlever 3 dernière liqne 







j re de lignes et 
remplacer dans 
- FU = 
e PT 6 


= F2 


ère ligne dans le fichier 

t de la ligne refusée dans le fichier 
la dernière ligne acceptée dans OUTE 

de lignes restant 3 traite 

nombre de lignes initial 


- prem = numéro de la première ligne 








- remain 


ose Ve Tre SE 











J539 remettre AVMEMS à la valeur avant 

=AYMEMS 
h AVMEMS := valeur avant 

j9=(4 remsin Où := nombre de lignes initial 

DATA À AtA) := nombre de lignes initial 

C=R3 

A=A-C â 

A=A-i A 

DATREA À remain = initial - traitées 

. 


+ Attention |! Le code continue ! 
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2076 @0CB7 + Fin de la boucte de recopie des tignes 
2977 CaCB7 . 
207$ 60CR7 J660 
2073 060CB7 . 
20e 08CB7 + (OUTBS...OUTBS+3) = place pour la longueur LIF 
2051 @ec87 + (OUTBS+4..AVMEMS) = somme des lignes jointes 
2682 0@CR7 + RO = ° première ligne dans le fichier 
2853 @9CB7 + Ri = ligne juste après la dernière dans le fichier 
2084 68@CB7 + prem = numéro de la première ligne 
2085 08CB7 ° remain = nombre initial de lignes à joindre 
2036 09CB7 . 
2087 A@CB7 + Enlever le dernier espace ajouté 
2088 00CB7 . 
24853 40CP7 1800000 DO=(5) =AVMEMS 
2090 @9CBE 146 C=DATO À 
2091 @aCC1 CE C=C-1 A 
2892 @aCC3 CE C=C-1 À 
2093 @0CC5 144 DAT@=C À AVHEMS -= 2 
2094 00CC3 + 
2095 00cc8 + Mettre en place la longueur LIF 
209€ 98CC8 . 
2097 Q0CC3 858 ST=1 @ ajuster AVMEMS si besoin est 
2092 @OCCB 80098 GOSUBL =FMILIF 
2093 08CD1 41C Goc JerR “Line Too Long” 
219è Q68CD4 . sosseseossscssessesese esse 
2101 66CD4 + Maintenant, les choses sont en place. Les anciennes lignes 
2102 @acD4 + sont toujours dans le fichier, et la nouvelle ligne est 
2103 00CD4 + en (OUTBS..AVMEMS) bien formattée. 
2104 08CD4 + RO = * première ligne dans le fichier 
2145 @CD4 + R1 = ° première ligne après la dernière jointe 
2146 @acD4 + R2=7 
2197 OCD4 . 5 

+ prem = numéro de la première ligne 

+ remain = nb de lignes jointes (non comprise la premiére) 


+ (OUTBS..AVMEMS) = nouvelle ligne 

sonores sense osenenosesetesesesesessss 

. 

+ 1 - Suppression des (remain) lignes juintes dans le 
+ tableau de pointeurs. 
+ Suppression des lignes (premtl. premil+remasin-1) 
. 
. 


On à enlevé (RI-RO)-LIF len(OUTBS) nibs 


















1220008 D9=(3) =OUTBS 
146 C=DATR À 
E 134 Da=C 
É0Gu GOSUEL =LIflen A(A) := longueur en nibs 
E-A A BCA) := LIFlen(OUTBS) 
A=R1 AÇA) fin 
C=R& CCA) ligne début 
A=A-C A ACA) := tout ce qu'on a lu 
Fage Éditeur. exécution des commandes ‘+cmd.as 
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1 EQ A=A-B A ACA) := longueur de ce qu'on enievé 
1895000 prem 
146 A 
95 A 
ES A BA) := no de l'ancienne prem. iiqne 
1Bounaa D9=(5) remain 
8 146 C=DATU À CÇA) := nombre de lignes enlevée 
(E (=C-1 À 
060 
DD SEvAon GOSUBL =dellin 


+ 11 - Remelscement physique de la ligne dans le fichier 


111 
118 


ACA) := ligne suivante 
C(A) := ° première ligne 





ÉE C(A) := length of old line 
108 R3(A) := length of old line 
1899600 
146 C(A) := File header 
+ 
+ ACA) = * last nibble + 1 nf old line 
+ C(A) = ‘ file header 
e R3CA) = jength &f old line (in nibs) 
+ (OUTRS..AVMEMS ) = neu line 
2154 09028 6F00090 GOSEVL  =MOOSUR 
2155 0002F 00008 CONCS3 =RPLLIN 
2156 00034 + 
2157 04034 + On ne peut ici avoir que deux erreurs 
2158 00034 e__ "Ililegsl Access" : déjà testé par MRITE? 
2159 49054 * _“Insufficient Memory" : on ne fait que tasser 
2168 99054 + Donc on ne peut avoir d'erreur... 
2161 00034 + Le branchement "GOC  Jerr” est inutile 


2162 08034 
2 96034 £E 0006 GOSUEL =syncbf 
34 


. 
2166 90D3A + Ligne courante := la nouvelle ligne 
2167 94D2A . 

2166 9ODZA 1890489 D4=(5) prem 

2163 49041 146 C=DAT@ À 

2179 46D44 SE873F GOSUBL setcou 

2171 G6D4A 5C0004 GOLONG  =BOUCLE 


2172 90054 
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2174 
2175 
2176 
2177 
2178 
2173 
2180 
2181 
2182 
2183 
2154 
2185 
2186 
2187 
2188 
2189 
2198 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2299 
2201 


2202 





2263 






2en5a 
20059 
96050 
89058 
eep58 
26D54 
99050 
LLhET) 
90056 
#ap50 
29050 
99059 
@a059 
5050 
2ep5@ 
29p59 
96058 
26050 
0aD50 
90050 
9805@ 
99054 
48056 
Q4D5e 
68050 
ea0:9 
49059 
08D54 
46054 
99059 
44054 


66p5û 


6 6658 


60 
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sons sosssneess sens r eos essor nesensssessesesesessssese 
+ cmDEL 
. 
But: effacer une ou plusieurs ligne dans le fichier 
Entrée: 
- DCA) = LEN(param) 
- Di =  parsm 
RO = nb de lignes introduites 
RI : debut 
R2 : lfin 
R3(S) = 1 si 
Sortie: par BOUCLE 
Abime: tout 
hppelle: noquer, set.db. GETFIL. msg. KEYUT, valid®, 
FINDA. seek. syncbf. dellin. OBCOLL. RPLLIN, MVFIL. 
setcou. getdbf, svRIR2, extser 
Niveaux: N/A 
Algorithme: 
analyser la ligne de commande 
tester l'accessibilité aux fichiers 
demander confirmation si plus d'une ligne 
si destruction interne 
alers détruire 


"2?" avant 13 commande 








chercher la fin du fichier externe 
le bl s le fichier externe 
6 de lignes détruites 













our du buffer (en modifiant DERN) 








éption 4 codage 
iorstion du traitement d'erreu 






psration de 
FO/JT tion d 
1/JT test du fisgq 


ose 





dns nn sn 





esse senessssessseneneessmereseee 





serorvsserece 


vevesesosssses 





BUSUEL noquer interdit Île 








i 
> 6@D71 
3 46077 





50 44D7A 


9007A 


2 60D7A 


90074 
A607A 
0407A 


5 AQDEI 


QUDE 


253 G4DEB 


00043 








SE914F 


4 


iFUuuoaR 





iFoogan 
147 

SAA 

Ce 


è6p9D à 





56 99DAA 554 





@0DAC 
QaDAC 
HADAF 


4 PODAF 


@P0AF 
AYDAF 
DODAF 






+ Mettre des paramètres par défaut et tester la validité 
+ 
Ë ur, exécution des commandes ‘xemd.as 
VE.4 te nde Delete 
GOSURL set.dh (.. ligne de début”) 


les paramètre 


. 
+ 
. 
+ 
+ 


ss... 


le fichier 











. rée 
. 
+ Valider ce qui a été r 
SOSUEL valid? analyse de la ligne terminée 
50€ Derr Erreur ! [1 Faut revenir en arrière 
. 
° Tecter l° 1(#) Fichier(s) 
+ Changement du 17/88/89 : test du flag “read-only" 
+ 





=URITE 
fe 


ere CCA) = eFACCS  #FPROT ou eFOPEN 





Fa: de fichier extérieur 





CCAY = eFACCS. eFPROT ou eFOFEN 


GC Dépa BE TE 


(cas d'erreur) 


Commande non reconnue. [1 Faut donc revenir en arrière et 
détruire éventuellement le fichier 


Séc's 
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AREUH AS, 
2274 90D4F 
2275 66085 
2276 @o08e 
2277 4ODBE 
ecvpB 
YGDEB 
26088 
YaDeB 
$90c2 
2 40C5 
9a0cz 
#eDce 
2226 G60CE 
237 96008 
2283 6@0D@ 
2239 99009 
2294 e90p4 
2291 00006 
2232 @600C 
2293 40DE2 
2294 90DE2 
à 6QDE2 
6QDEZ 
AQDE2 
AGDEZ 
QADEZ 
9ODES 
GADER 
G9DEF 






3 a6DF2 


490F5 


345 GQDF2 





5 WADFE 


860FR 


a80Fe 









Be 00 


2 QMEUD 


ag 





14 





GOE iQ 


S GYEIC 


AE IC 
29E1C 
99E1C 


2 QOE23 


dAE23 
bèE2A 
@GE2D 


90E3F 
CHERS 
LUEN 
CET 


VAE AC 





6 DAE ST 


QAE AU 
tet 42 
Q@E 4 
WQE4E 
ANE4E 


2 AOEAE 


QQE4E 





V2.4 


2 0068 
206904 


1B9ga44 
142 

164 

146 

8A2 

33 


330060 
BEVOGA 
2E200e 


GE0000 


&Fooue 
coa 























QElA 22 
 AYELC 


SFO0aaQ 


1B90ue 
142 
184 


 JBevane 


TT 
146 


SFOgaue 
aaona 


Editeur, 
Commande Velete 





esécution des commandes ‘emd.as 


=PURGE 
srederr 


Derr  GOSUBL 
ESFEUR GOLONG 


n'abime pas C(A) 


Dnossseoessecesseneoeeesesecessesesesee 


+ Demsnde 
ssssosse 












0966 deb 
ACA) := deb 
09=(5) Tfin 
CCAd := lfir 
196 détruire sans confirmation 
+ 
+ Poser ia question à l'utilisaten 
. 
LCCA) (id) (=tebELE) Ok to Uelete? Y/H:" 
GOSUBL =dspmsg 
SOSUEL =KEYNT 
+ 
+ 
. 
. 


GOSUBL =YNÿ 


. 


+ C(9) = 4 si non reconnu, 1 si Y. 2 si N. © 





GOSBVL =TELJMC 
REL(3) D474 
REL(3) D194 
REL(3) Da7# 
REL(3) D474 


non reconnu 








Quf ! L'utilisateur s”° 
ffacer le Fichier s 








so... 





+ Suppressre 








ation des adresses 


sonosnsosesssssseseeeeescseceesesesses 





Dige 


sr, exécution des commandes -xcmo.as 





nde Delete 


addeb, adfin: fi 







getôbf 








début de 
© fin de i 





EG Es 


ss... 





met (OUTBS..AVMEHS à 4 


ACA) := ad. last nib of old iine + ! 
4 




















C(AY := file header 
+ A(AY = adûr of last nibble + L of old line 
+ LCA) = adgr of file header 
+ R3CA) = length of old line ir 
+ 
. 
e Il ne peut pas y avoir d'erreur. L'accès au fic 
ÿ . et on détruit, donc on tasse 
+ peut n3s v avoir “Insufficient Memory” 
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Page 053 
AREUH ASS. 


2374 QGE4E 
2375 O0E4E 
2376 OQE4E 


2377 
2378 
2379 
2380 
2381 


2332 























2389 Q8E60 
2390 Q0E63 
2391 00E69 
2392 @8E069 
2393 00E69 
Q0E63 
90E69 
QQE6C 
Q0E6F 
QOEEF 
Q0E6F 
O0EGF 
99E76 
Q9E79 
QQE7C 
QAE7F 
5 QUES? 





OGESB 
99E 08 
d9E 38 
> OUESE 


3 QUEAI 





Editeur. evécution des commandes <xcmd.as? 
V2.4 Commande Delete 
+ Ii n'y a donc pas de "G0C erreur” 
. 
6854 COTQ Dgèa 


connsssessonsssssessseserenestesesesess 


+ Cas II : Destruction externe 
sooesesesesseemeenseessesestsesssesonse 












Dsèa 
e Chercher la fin du fichier externe 
+ (adresse de destination) 
+ 
34FFFFF LÉCSY 1 chercher la dernière ligne 
1Baaaga Da=(5) =EXTFIL 
142 A=DATA À ACA) := file header 
$Eaa0a GOSUBL =extsek 
+ 
+ Do = ‘ fin du fichier 
+ ACA) = numéro de la dernière ligne du fichier + 1 
. 
136 CDOEx CCA) := ° fin du fichier 
198 Ra=C RA(A) := dstadr 
+ 
« Debut et fin de 13 partie à remplacer 
+ 
1800020 D@=(5) addeb 
146 C=DATA À 
199 R RICA) := orgdeb 
164 D 5 Da=(5) adfin 
146 C=DATA A 
144 R R2(A) := orgfin 
1B49940 D=(5) =FILADR 
142 A=DATA À ACA) := header origine 
1A0gna DO=(4) =EXTFIL 
146 C=DATS À C(AY := header destination 
854 STe1 =S$MOVE 
+ A(A) = header origine (notre fichier) 
+ RICA) = © début partie à déplacer 
+ R2CA) = ” fin partie à déplacer 
a C(A) = ‘ header destination (fichier externe) 
+ RO(A) = © emplacement d'insertion 
+ sMOVE=1 pour copie avec destruction 
. 
8Engea COSUBL =MVFILE 
560 GONC D6aa 
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AREUH ASS 


Q9EA4 
YQE A4 
QUE A4 
QQEAA 
8 QOEAC 
OOEAR 
34 ODEAS 
QYEAS 
2 DAEAS 
QGEAS 
AQEAF 
Q6EB2 
2436 O4ERS 
QUEBB 
QMEBE 
99EC1 
QUEC3 
Q9EC2 
Q4EC3 
90EC3 
49EC3 
DEC 
































7 GES 
8 90E07 
GOEUA 
4CEDA 
Q9EUA 
OYEDA 


3 AGE 





2473 QOEFS 
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Editeur. exécution des commandes <xcmd.as? 





V2 .4 Commande Delete 
. 
e S'il y à eù erreur, aucun des deux fichiers n'a bougé 
° 
BAQF GOTO Derr Purger le fichier externe si besoin 
. 
+ ACA) = nouvelle valeur de FILADR 
+ Résctualiser FILADR et tester s'il faut modifier 
+ le buffer Cen fait, simplement DERN est modifié) 
+ 
1899909  D699 DO=(5) =FILADR 
146 C=DATO À C(A) := ancien FILADR 
149 DATH=A À FILADR := nouvelle valeur 
149000 D6=(4) =EXTFIL 
142 A=DATO À AÇA) := ancien EXTFIL 
£AR TA#C A fichiers différents ? 
91 GOYES  D399 oui sortie 
+ 
+ Non : modifier DERN 
« 
140040 D@=(49 nblig 
146 C=DATA À CAD := fin - ldeb + 1 
140004 D9=(4) =DERN 
142 A=DATA À A(AY := dernière 
CA A=h+C A 
144 DATA=A À DERN += fin - Ideb + 1 
dnoronsesssseseseseseseennesseeeeeseees 
+ Mise à jour du buffer et Sortie 
anerssesenserseeneneseseseessesesresss 
Dguu 
+ 
+ Synchroniser le buffer avant de travailler dessus 
+ 
2E0064 GOSUBL =syncbf 






. 
. tres à mettre en place pour "dellin” 
. e de lign (fin - Ideb + 1) 
+ - longueur de ce qui a été enlevé (adfin - addeb) 
+ - numéro de l'ancienne première ligne (ldeb) 
+ 
1E44g0a Da-(5) findeb 
142 A=DATÉ À ACA) := long. de ce qui à été enlevé 
2474 OAEEA 149044 ) deb 
2471 OBEFA 146 A 
2472 GGEF3 D A BCA) := Ideb 
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AREUR ASS. 


2474 OùEFS 
2475 O09EFB 
2476 OOEFE 
2477 QGEFE 
2478 OOEFE 
2479 Q@EFE 
2430 OùEFE 
2481 OQEFE 
2482 @0F 04 
2483 @0F 04 
2434 00F94 
2485 00F04 
2486 00F04 
2487 00F0B 
2488 00F0E 
2489 Q@F14 
2430 00F14 
2431 @0F1A 
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AREUH ASS. 


2493 06F1A 
2494 00F1A 
2495 O0FIA 
2496 A0FIA 
2497 Q0F1A 
2438 00F1A 
2499 06F1A 
2504 Q9F1A 
2501 00F1A 
2592 90F1A 
2502 DOFIA 
2594 G0F1A 
2505 90F1A 
2506 00F1A 
2507 99F1A 
2548 90F1A 
2509 00F1A 
2510 06F1A 
2511 60F1A 
2512 @9F1A 
2513 00F1A 
2514 90F1A 
2515 00F1A 
2516 00F20 
2517 96F26 
90F 26 
3 9@F2C 


9 QOF2F 8 
90732 ë 


04F34 
3 90F34 
@QF 734 
40734 
A@F 34 


00F37 
@QF3A 
Q0F 40 
00F 45 
907 43 
33 @8F43 
G9F43 
OGF 4A 
QAF 4D 
00F50 
40752 
Q0F52 
Q@F52 
2541 6@F52 
2542 40758 


09F34 & 





ve.4 


140000 
146 


39000 


1800070 
146 
8ÉEAIF 


8C2000 


Editeur, exécution des commandes <xcmd.as? 
Commande Delete 


D#-(4) nblig 
C=DAT4 À C(A) := nombre de lignes 
+ 
+ A(A) = longueur de ce qui à été enlevé 
+ BA) = numéro de l'ancienne première ligne 
« CÉA) = nombre de lignes 
+ 
GOSUBL =dellin actualise DERN 
+ 


« Actualise le numéro de la ligne courante 


D@=(5) Ideb 

C=DATO À 

GOSUBL setcou ".” := Ideb 
GOLONG =BOUCLE 





V2.4 


8C1C2F 
8C952F 


8E3A2F 








8E400a 
402 


1890040 
146 

8AA 

@0 


8EF20F 
a 


Editeur, exécution des commandes <xemd.as? 
Commande Exchange File 


nono rene rss snsee see snvesecscseseceenenssssececssreseees 


+ cmxCHG 





. 
+ But: changer le fichier en cours d'édition 





+ Entrée: 

+ _- D(A) = LEN(param) 

+  - D] = ‘ param 

+. - RO = nb de lignes introduites 

. Ri = Idebut 

. R2 = Ifin 

. R3(S) = 1 si ‘?' avant la commande 

+ Sortie: par BOUCLE 

+ Abime: tout 

+ Appelle: noquer, GETFIL,. valid?. PURGE, inibuf, setcou 
+ Niveaux: N/A 

+ Historique: 

+ 88/11/11: PD/JT conception & codage 

+ 88/11/13: PD/IT utilisation de svRIR2 

+ 89/06/17: PD/JT mise à jour du flag "read-only" 





mnssssssosereesesssenensssesesssnereseenérenesesseseus 








InvCmd GOLONG invemd 
InvPrm GOLONG  invprm 
=cmXCHG COSUBL noquer 
C=RA nb lignes 
2049 h 
GOYES InvEmd “Invalid Cmd” 
. 
+ Analyser les paramètres de la commande. En particulier, 
+ regarder s'il y à un nom de fichier suivi éventuellement 
+ d'un ‘+ 
. 
STEL =sDELET cas D ou X (et pas C/M) 
ST=1 =sXCHG cas X (et pas D) 
GOSUBL =GETFIL analyse et cherche le fichier 
GOC ErReuR ça s'est mal passé 


+ Le nom de fichier est obligatoire. Vérification : 


Da=(5) <EXTFIL 

C=DATO A 

?C=0 A 

GOYES InvFrm “Invalid Param” 


+ Tout à été testé. Valider ce qui à été reconnu 


GOSUBL 
GONC 


valid? 


x95à Pas d'erreur 
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AREUH ASS. 


2543 00F5R 










V2.4 








Editeur, exécution des commandes 
Commande Exchange File 


"xcmd.as. 
















Psge 953 
AREUH A2. Ve 


Éditeur. exécuti 
Commandes Copy / 





@9F9F ésso00se … 



























on des commandes “cmd.as” 
Move 
















































000609. Sonsevsoceseseosesesvesvecescosse 


























2544 90F5B . 29F3F 
2545 99F5B e Commande invalide. Il faut revenir en arrière ét détruire 00F3F DC =cmMOVE C=4 C4 := 4 (move) 
2546 09F5B ° le fichier s'il vient d'étre créé. 9GFAL 6600 GOTG 
2547 @6F5B . DUF AS 
2548 00F5B EE940 COSUBL =FURGE n'ahime pas C(A) AUFAS 391 =cm£OPY LECL, 1 Ct@) := 1 (copie) 
2549 90F61 800606 ErReuR GOLONS =xederr GOF AS 
2550 Q6FF7 GOFAS , 
2551 90F67 . Q9F AS scans iei où 4 (move 
2552 00F67 + Le fichier est la. Reste à mettre les bons pointeurs aux GAP AS . 
2553 @0F67 + bons endroi 2 UAFAZ IB0G4UA Copa  DustE) Cave 
2554 40FE7 . S9F£F 1540 DATU= p 
2555 Q0F67 1Fau6@u  XG5@  Di=(5) =EXTFIL G6FEZ . 
2556 AGFRE 147 C=DATI À G9FES + Interdire C/M avec 7° 
2557 AOF71 1E004 D1=(4) =FILADR è 99FB3 ° 
2668 60777 145 DATI=C À FILADR := EXTFIL + AUFRS SECICF DOSUEL noque 
2559 QûF7A . Dar ea . 
2560 Q4F7A e Regarder si on peut modifier le fichier evtérieur greg + Sauvegarder F9, Rl et R2 car GETFIL les abime 
2561 wOF7A , 6 U6FE3 . 
2562 Q4F7A 2E0ñua =CHEURT 6eFeg 164 Dé+ 1 Csave + 1 
2563 1FAunU =RDONLY Q9FBC 115 C CCR) = 9..6 
2564 1554 8 3 GGFBF 1549 TéeC P Csavel + 1 := nb de lignes 
GDF GE + 60Fc3 5E730F L Fire 
+ Initialiser le tableau de pointeurs O8FC4 . 
2567 GOF8E . : G0FCA + Chercher si l'utilisateur à demande un (/M externe 
OYFER SEAGAA GOSUBL =<inibuf 3 GaFC3 + 
owF 91 4aF ca ST=0 #sDELET cas ou ‘M 
£= À Am CC GOSUBL =GETFIL Abime STMTxx et FUÜNCa» 
GOSUBL <setcou courante := 1 6 D0FD2 407 60€ Erreur 
. 64FDS 
90F 33 e Et retour 3 la boucle principale. o0F05 
06F 93 . G9FD5 + Interdire tout ce qui peut suivre. 
GOLONG  =BOUCLE 00FD5 ° 
j @nFD5 $E< GOSUBL valide 
FO 
uvegarde 
14naç4 
FFE 1564 
42 1AGgQû 
Editeur camms <kcemd.as? Editeur, exécution des cons 
























90F9F 
QùF3F 
3 @@FSF 
097 3F 
A0F9F 
@aFir 
Q0F9F 
8 Q0F3F 
90FQF 
@@F3F 
QaF ar 
OFF 
GGF SF 
GaF ar 
00F3F 









q 6072 
AGP 9F 
QUF SF 
60F3F 
DUFSF 
GAFAF 
CHE 
6 60F9F 
QF GF 


Commande 





donoseoteose res eme ro sers eses esse sessesesseerescsereeseses 
+ cmMÔDVE, cmCÜPY 












+ But: déplacer ou copier une partie d'un fichier avant la 
. ligne courante 

+ Entrée 

, DCA) = LEN(parami 

° Di = pose sm 

+ RO = nb de lignes introduite 

+ R1 = ldebut 

. ti 

ë 1 55 "À" avant ‘3 command 

+ BOUCLE 

+ 1 GETFIL, valide, set.db,. getdbf. 
+ . WRITE® 

# N/A 





Û 

ve 
igorithme: 

t 
































. si l'utilisateur à demande un fichier externe 

, erne 

, 

. paramètres ( <idébut> } 

° : deux adresses dans le fichier courant 
‘ 

° ider les paramètres (1. Inf) 

$ chercher les deux adresses dans le fichier externe 
+ 

+ 

+ ou tecterne et Fichiers differents) 

+ 

. addlin (ligne début = courante, nblignes = nblig} 
. courante += nblig 

. non 

. à courante 

+ 4 

+ in tdébut = Îdeb. nblignes = nblig} 

. 1 (début courante+nblig.nbliqnes = nbligi 
: 

+ © 

. eddlin >. nolignes = nblin) 

. dellin cdébut = Ideb, nblignes = nblig) 

+ 

+ rante := fin + 1 

+ fin si 

, Étnsst 

+ fin si 

+ orique: Ÿ 


. 





A/IS: FO/JT conception $ codage 
29/46/17: PO/JT test du flag ‘resd-onlv” 


+ 








& O180 
a1011 
ginii 
ginil 


g10il 


Fo due 
147 
F 8AA 
8° 
gEcan 
5 SEgeaa 
6 @luan 4c1 
91945 + 
1942 
LIUER) + 
41443 3ChdAû 
2791 01043 


Erreur GOLONG 


2702 @1043 Casa 
2703 01049 * 
2704 01049 + Changement du 


2705 01049 , 


2706 41049 1F00800 D1=(5) 
2747 @1050 1574 C=DATI 
2702 01054 8EA000 COSURL 
2709 Q1NSA 58E GONC 


2714 01050 e 
c711 01 + Restaurer RO, 
2712 41850 . 
2713 ALG5D 1800048 CO7à 
2714 nina DO 





DO=(5) 
è 


















ES 1568 ATA 
2716 AURA 108 RA=C 
aa 
1AaQan Du=c4) 
? 146 JATA 
199 Ë 
91079 168 Dé=Dè+ 


* LW7C 146 
A1Q7F IAA 





DATA 





. 


+ Differentier 
+ 





1BaGeun Dè=(5) 








+ Attention ! Le code continue ! 


sxederr 


17/06/89 : 





test du flag ‘read- 
=RDONLY 


=URITE? 


Erreur C(A) = eFACCS, eFPROT ou ef 





Ri et RJ. DA 





n'a pas été modifie pa 


(Csave +1 


A 

F RAA) := Csavel + 1 
ldet. 

À Ri(A) := Ideb 
(tfin)-(Ideb)} 

A RICA) := fin 


C/H interne et externe 


=EXTFIL 
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Fage 961 Editeur, exécution des commandes s«cmd.as° Page 063 Editeur, exécution des commandes <xcmd.as 
AREUH ASS. V2.4 Commandes Copy / Mave AREUH ASS. V2.4 Commandes Copy / Move 
2728 01029 14€ ATà À CCAY := adresse du fichier externe 2828 61133 . 
2729 0105C 3AA DE] A 2829 01133 8E409û GOSUBL =extsk+ ACA) = numéro trouve, D® = * ligne 
2730 O1QEF 69 COYES  Ciôu C/M interne 2539 01139 1F00000 D1=(5) adfin 
2731 061921 6910 GOTO tata C/H externe 2831 01140 136 CD@Ex 
2732 01095 2832 01143 145 DATI-C À adfin := ° ligne trouvée 
2723 01095 shronsesensssssemesessonsonséssseeessses 2833 41146 1E0000 D1=(4) fin 
2 a1a95 + C/M interne 2334 @114C 141 DATI=A À Ifin := numéro trouve 
01895 tassorosssesteseeseesmsesesessessereseee 2535 @114F e 
à1095 2826 0114F e ACA) = lfin (artificiellement augmente de 1) 
41995 cien 2957 0114F + CCA) = adfin 
91095 ° 2838 @114F + D1=(5) 1fin 
à1495 «+ Determine les numéros de lignes par defaut. 2839 @114F . 
01995 S 2840 @IL4F 
01995 8ED40F GOSURL set.dh (.. <liqne de début») 2841 @114F à 
a1498 + 2842 @114F + Reste à calculer adfin - addeb et 1fin - Ideb + 1 
«+ Sauvegarde R1 et Rè en lieu sur 2843 O114F « 
. 2844 @114F DS 0) B(A) := adfin 
GOSUBL  SvRIRT 2645 41151 1CQ (1fin)-(Ideb} 
. 2846 01154 147 A CCA) := Ideb 
+ Calcule addeb, adfin, findeb et nblig à partir de 91157 SAA A 
+ Ideb et fin. AS Q115A 88 c390 retour 
+ deb = numéro de la première ligne à détruire 3 9115C EE A CCAY := Ifin - Ideb 
+ fin = numéra de la dernière ligne à détruire 9115E 1E0000 nblig 
° 01164 145 A nblig := lfin - Ideb 
getdbf 91167 
cu Tout est en place pour MUFILE è116/ D4 A AtA) := adfin 
01189 1E0000 addeb 
IAA room orneos ss eeressessessesesressee Q116F 147 A C(A) := addeb 
5 GIAAR + C/M externe 91172 EE 4 CCA)D := adfin - addeb 
QLAAE morrosssenessee messes reesssseesetéses @1174 1E400@ findeh 
$ AIAAR 41174 145 A 
91948 (2aa 91170 + 
, 41170 + Ca y est ! 
+ Tester 3 validite des paramètres ali70 + - deb = numéro de ligne de début (vérifié ds le fichier) 
+ Paramètres par defaut : (1. 4FFFFF) 1170 + - lfin = numéro de ligne de fin (vérifie dans le fichier) 
+ 41170 + - addeb = ligne de début dans le fichier externe 
g1AaB 11€ CeRQ 91170 + - adfin = ligne de fin dans le fichier externe 
ALARE € - @1170 + - findeb = adfin - addet 
J1oRG 446 nb paramètres = à 6 41170 + - nblig = fin - Ideb + 1 
31683 C 41170 + 
! nb paramètres = 2 61170 + Le code peut maintenant continuer dans le tronc commun 
A14rs . @1170 . 
GinBs 4dû Soc 5 nb parmaëtres = 1 91170 
aimer + nb param 01170 dssosesesssssoseéssesececeevesesessseses 
aiare D2 C214 è 2 61170 + C/M : Partie commune (déplacer le bloc) 
E6 À Ct4) ie 41170 sonrorrerererereseneneseseseséessesscese 
193 Idebut := 1 
2 GAFFFFF  C215 “4 C3aa 
81409 144 fin := Inf par defaut és 
aa + + addeb = * début de la zone à détruire (début de ldeb} 
Page Gf Editeur, ution des commandes <xemd.as Editeur, exécution des commandes <xcmd.as” 
V2.4 ammandes Cony / Move Commandes Copy / Move 
2778 G18CC + R1 = Idebut 2878 61170 + adfin = * fin de la zone à détruire (fin de IFin) 
è «1acc + R2 = lfin 21170 + findeb = adfin - addeb 
aLACC + 41170 + nblig = nombre de lignes traitées 
A1oCC C22a @117D + curadr = adresse de la ligne courante 
a1orC + 91170 + FILADR = adresse du fichier courant 
+ Tests 61170 + EXIFIL = 4 ou adresse du fichier externe 
+ si Idebut = 4 alors #rreur @1170 + 
. si Idebut > Ifin alors erreur 5 41170 
° \ 41170 840 ST=0 =$MOVE cas "copie" par défaut 
AA += Idebut 01159 129090û D@-(5) copie 
À 1 61157 1564 C Î CS) := 1 si . @ si “move” 
invéem “Invalid Psrm° O11EÈR J4E cas “copie” 
CA) :s lfin Q1lSE 50 C314 oui 
h'=l h 41140 &5A =5MOVE non : alors cas “move” 
GOYES 61195 
invPrm GOLON( 41133 1A6vOG c319 addeb 
91199 146 & CCA) := addeb 
c9396  GOTO cg94 @119C 143 R1 := ° début partie à déplacer 
+ 6 4ii 164 $ Dè=(5) adfin 
+ RI = debut file 146 & CCA) := adfin 
+ RE = fin Q11AS 194 R2 := * début partie à déplacer 
. AILAZ 140060 d 
(264 svRIFT sauver (R1, R2) en (ldeb. fin) GLIAE 146 à CA) := ligne courante 
a1181 105 Ra := destination address 
CCAI := Ideb 2902 41184 146068 =FILAUKR 
2 =EATFIL 3 Q1IBA 146 À ACA) := ° header destination 
4iuFe 14 À ACA) := file hesder W11RD 144004 D4=(4) =EXTFIL 
5 AlF3 2E0206 sestser ACA) = numéro trouve, DO = ligne 91103 142 A=DATY À C(A) := @ où ‘ header origine 
1F40004 addeb 6 41ICR BAC TA40 A C/H externe ? 
& 136 #11C9 4û GOYES  C32@ non : A(A) est donc valide. 
145 A sddeb := ligne trouvée 3 411CE DA A=C A ACA) := © header origine 
C 134 41100 C32a 
ideb 41100 , 
A deb := numéro trouve 61100 + ACA) = header origine 
61100 + CCA) = “ header destination 
(lfin)-{ldeb) 3 41100 + RO(A) = dstadr 
A CC) ie fin 91100 + RICA) = orgdëb 
À RCA := lfin 911CD + R2(A) = orgfin 
A 6 G11CD # 
ce chif fin = #FFFFF 911C0 54068 COSURL =MVFILE 
= fin +i 3 01103 559 GONC C336 Pas d'erreur 
(264 41106 80964 GOLONG =xederr 
Ideh @11DC 
411DC C336 
= file header &11DC % 
. #11DC + Réactualiser les adresses des deux fichiers qui ont pu 
+ AlA; = &11DC + être modifiées. Nate l'adresse EXIFIL pouvait être 
+ BC; = ide &11DC + nulle avant l'appel, mais est maintenant au moins égale 
+ 09 ligne dé début YLIUC + à FILADR. 
+ CEA = fin + Lou bien #FFFFF g11DC + 
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2923 0110C 1B09004 D9=€5) =FILADR @12CC 146 C=DATG À CA) := courante 
2929 911E3 144 DATO=C A FILADR resctualicé (destination G12CF CE CeC+A A CCAj := courante + nülignes 
2930 O11E5 140408 09=(4) =EXTFIL 91201 6176 S0TC EU] 
2931 Q11EC 140 DATU=A À EXTFIL résctualisé (origine) 01205 
2992 O11EF & 91205 169 C524 D9=D9+ (ifin)-(ldeb) 
2933 O11EF + Le buffer à très certainement été déplacé durant 91008 146 C-DATA À CA) := fin 
2934 O11EF + l'opération. Remettre son adresse à jour 61208 SBA TAC=C À courante <= lfir 
2935 @11EF . 91é0E 95 GOYES  C548 
2936 @11EF 80000 GOSUBL =synchf 412E6 + 
2937 911F5 + 412E@ + courante aprés le bloc (courante : lfin) 
2928 411FS + Les déplacements sont faits. Il faut donc mettre à jour 912€ . 
2939 @11F5 + le buffer, et c'est très très compliqué ! @12E0 1B6469û D6=(5) =COUR 
2940 011F5 , ÿ1GE7 146 C=DATA À 
2941 O11F5 1BAUHhA D9=(5) copie 4icE4 DS B=C A BCA) := ligne début 
2942 @11FC 1564 C=DATÈ M1ZEC 140906 Da=(4) Findeb 
2943 @1200 J4E 2C4ù @12F2 142 A=DATO A ATA) := lang de ce qui à été raïo 
2944 à1203 91 GOYES "copie Q12F5 140900 09=(4) nblig 
2945 91205 @12FB 146 C=DATO A CCA) := nb lignes 
2946 91205 140600 =FILADR Q12FE . 
2947 9120B 148 À CCAY := fichier courant @12FE + A(A) = longueur de ce qui a été rajouté (adfin 
2948 Q120E 149000 =EXTFIL 3 Q12FE + ECA) = no de la nouvelle première ligne (courante 
2949 91214 14 A ACA} := fichier externe O12FE » C{A) = nombre de lignes (nolig) 
2954 @1217 &AZ À E 
2951 91214 F3 Cu M interne O10FE SE4900 GCOSUBL =addlin 
2952 @121C 21304 
2 ST na NS TR RAT TR Ce 53 41204 1B00400 1deb 
externe ou M externe 0134B 146 À 
cortrronessossseeseresses ses g136E D5 A B(A) := Ideb 
41314 1860004 nblig 
91317 146 A CCA) := nblignes 
+ G131A 1A00ÛA findeb 
- deb + 1) lignes juste avant la ligne 142 A ACA) := long de ce qui à été enlevé 
+ ACA) ongueur de ce qui à été enlevé (adfin - 2ddeb) 
=COUR + RCA) jo de l'ancienne première ligne (ldeb) 
À + CCA) ombre de lignes {nblig) 
A BCAÿ := no nouvelle première ligne . 
GOSUBL =dellin 
nblig 
A C&AD = fin - Ideb + 1 DO=(5 =COUR 
C=DATA À 
Dû:(4; findeb 
A=DATA A ACAD := lg de ce qui est rajouté 5070 
| -sddlin 
+ actualiser courante + courante gqans Île bloc (ldeb ‘= courante = 1fin) 
nblig ifin 
AT4 A ACA) = nblig A | 










































Editeur. cution des commandes :vemd.as Editeur, exécution des commandes ++ 
AS V[.4 Enmmandes Copy / Mave V2.4 Commandes Copy / Move 
Dé=(45 =CQUE £zC+i A 
sDATA À = courante + 
A CEA) := nouvelle valeur de courante + Attention ! Le code continue 
cjue . 
Déssonsresereress ses seeneseseresessssese coan 
+ Hinte . 
donsnsto ner ensren pese ses eee seness ses + COCA) = nouvelle valeur de “courante” 
, 
C5aû COUR $E9/DE GOSUBL setcou pour vérifi 
h AA urante Caaëa Cam GOLONG =BOUCLE 
Idet 
ë CCA) = END 
A courante 
. 
+ courante avant le bloc ideb 
‘ 
RCA) := ligne début 
ACA) := long dé ce qui à été rajouté 
COCA := nb lignes 









3004 
3045 





) = longueur de ce qui à rajouté (adfin - addeb) 
} = no de la nouvelle première ligne (Ideb) 
Ÿ = nombre de lignes (nblig) 


….... 
D x 











SEaaua GOSURL =addlin 
1Boguau D@=(5) =COUR 
L4ë. CEDATA A 
2 D5 = A 
3 A12AL 1B8000m0 nbliq 
? 146 À ÊCA) := nbliqnes 
C1 À RCA) := caurante + nb lignes 
1Aogua findeb 
14 AAY := long de ce qui 3 été enieve 
AIRE . 
91286 . e qui à été enlevé Cadfin - addeb) 
91226 + cienne première ligne (ldeb) 
91286 + bre de lignes {nblig) 
@12B6 * 
91286 8E400û BOSUBL  =dellin 
&128C 
O128C 1800000 DO=(5) nblie ° 
@1203 142 A=DATA A ACA) := nblignes 
@12CR 144040 D@=(4) =fQOUR 
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Page 63 Editeur, exécution des commandes <xemd.3s° Page 071 Editeur. exécution des commandes <xcmd.as? 
AREUH ASS. V2.4 +ose SYMEOL TARLE ose ARELIH ASS. V2.4 ess SYMBOL TABLE ee.e 
=ASLUS Estrn Ukn z L19à 0943D Rel 4861 - @851 
=ASRH5 Extrn Ukn # Lege 00448 Rel 0868 - 0356 
=AVMENMS Extrn Ukn 5 59 1517 1964 L399 Q044C Rel 0874 - 0750 
<BOUCLE Extra Ukn 5 1332 1693 2312 EMCKL Extrn Ukn - 1921 14993 1941 
+ 2575 GO8E GOSUR Fxtrn Ukn - 1124 1607 2154 2368 
=BUF ID Evtrn Ukn à Extrn Ukn = ‘0729 
=CALCsb Extra Ukn * Extrn Ukn - 1514 1971 
Extra Ukn 5 2562 2694 Extrn Ukn - 2422 2917 
Extra Urn 8 Extrn Ukn 1898 1815 
Extra Ukn Extra Ukn - 4699 
Extra Ukn $ 0276 0304 0336 0588 0604 @3I1 0942 I Extrn Ukn - @701 
+ 30 1569 2663 2962 2978 2987 an1d =Num2D1 Extrn Ukn - 6606 
+ NotFnd 009F8 Rel 1695 - 1684 1739 
cean OQFAS Rei 2638 - Not fnd QQ7AF Rel 1979 - 1695 
Casa 91049 Rel 2702 - =ORCOLL Extrn Ukn - 1414 2351 
ca7e 41950 Rel 2713 - 2696 UTRS Extrn Ukn - 1051 1547 1530 1912 2015 2118 
ciaa 41995 Rel 2737 - =PCMD Extra Ukn -  Q466 
C2aû AINAB Rel 2759 - =POPRUF Extrn Urn - 9862 
C21è &19BR Rel 2772 - =PRINTE Extrn Ukn - 0725 
FALSE H10C2 <PURGE Extrn Ukn = 2274 2911 
aiacc SQUERY Extrn Ukn - 0515 128 
Y1YE =RDONLY Extra Ukn - 1007 1422 2563 2685 2706 
=REPLIN Extrn Ukn 
=RESJPC Extrn Ukr 6367 
=RPLLIN Extra Ukn 1668 2155 2369 
=RPTKY Extrn Ukn 
Ra3Ô Rel 1405 - 
où Rien D Rel 1450 - 
CEQù EU Rel 1471 
Cse8 ‘ RICù Rel 1506 
C54a @1337 R154 | 4569! - 
caoû 41342 Re 3a3a 3a7û R1SA Rel 1649 
C994 01349 Rel 3 R240 8 Rel 1656 
Csave Unkun Ukn 0097 - 2E28 2675 2715 Ra0û Rel 1676 - 1665 
=DELIM Extra Un - 1394 Rerr Rel 1490 - 1425 1501 1551 
=DERN Extrn Urn - AGDE 0066 0349 0412 0515 0799 1077 24485 =SENDEL Ukn ; 
sDISFt Extrn Ukn é SENDWD Extrn Urn 
Dasa 4QDBR Rel 2281 - SNOUD + Extrn Ukn 
Du7é MADFR Rel 2311 - 4 2345 =SRCADR Extra Ukn a 
QYE07 Rel 2322 - 6 2305 =SRCLIN Extra Ukn 
A0E52 Rel 2352 - =STHTRA Extrn Ukn - 
AGEAB Rel 2493 - =SWPRYT Extrn Ukn 
GOEDA Rel 2454 - 2438 s19û QOGFA Rel 





















































Derr QUDAF Rel 2274 - 2258 2166 2 5306 40735 Rel 3 1316 
Estra Ukn - 1922 1931 1481 49743 Rel 2 
YQ2BE Rel ë QG7ER Rel = 
Hnkun UÜkn ë 342 29E8 2416 2436 2534 2555 269à 2727 =TRLJMC Exten Un 3 
+ 21 2904 23930 294% =TMF3 Extra Un È 
D7 Rel 0688 - Tong 09461 Rel 0924 - 
6. Réel: 2078 + Tiôë 44496 Fel 0938 - 1134 
Fage 076 dés commandes ‘xemd.3s Fage 072 Editeur, exécution des commandes <xemd.as° 
AFEUH ASS, Ve. d +. AREUH ASS. V2.4 +ese SYMPOL TABLE ee 
ErReuR AAFE] Re £ T4aQ 90517 Rel 0948 - 0954 
ErreuR U67BS Kel 1360 - T4i4 YOSAA Rel 1050 - 1455 
Erreur 41643 Fel 700 - T429 005P6 Rel 1054 - 1448 
=FILADR Evten likn 2366 2407 2433 2557 2992 2928 T454 QQSEC Rel 1077 - 
T4 VOD Rel 1103 - 1473 1054 
2F INDA Ectrn 1496 GOGAA Rel 1117 - 186 
IFLAGI Ésben Taaû MaE7C Rel 1137 - 0979 
=FMILIF Esten #4 2014 2096 TerR 90629 Rel 1098 - 1126 
=FUNCRA Extra 216 1204 1576 1698 Terr 00505 Rel Q9$7 - 1014 1422 1092 
eNd U124F =UPOTRA Extrn Ukn - 1642 
GETFIL Extra =WRITE? Extra Ukn £ 1 2257 2265 2687 2695 2708 
Extra =XEDTMP Extra Un 
AGA4Y xa5@ G0F67 Rel 2555 - 
4GAED =YN9 Extrn Ukn ; 
HABE =addlin Extrn Ubn # 3051 
OQUASE sbln 04216 Rel £ 
UuAEd 1547 1514 1512 1514 3bCn@5 40220 Kel È 
AGALE 3 40247 Rel é 
GO8CI 90254 Rel : 
“08407 & 4Q26E Rel ë 
GYARE Unkun Ukn @154 2400 2854 2893 
Unkun Utn 2 + Q162 2353 








ana OQFAS Rel 





=JnhE0L 














k 6 4526 96059 Rel 
InvCmd L515 VOCAE Rel 
InvPrm 2516 - QN9FC Rel 
Invprm VAGEE Rel 4244 - 94452 Rel 
GaRQA Rel 1469 - =cmJOIN OGAFE Rel 
naBid Fel 1271 - scmLIST 90305 Rel 
00893 Rel 1909 - =cmMOVE 90F9F Rel 
UGBEF Rel 1333 - =cmNULL 40294 Rel 
9084 Rel 1347 - semPRNT 4GCFD Re 
CIE Fel 2037 - tn 2034 =cmREPL Rel 
24017 Fel 2661 - i SRCH Rel 
GOCE7 Rel 2478 - cmTEXT Rel 
4nC33 Rel 2449 - mxCHG Rel 
AGBAA Rel 1945 - cgga Q1uE2 Rel 
Hnbun Un 64471 - chiplia 9G4A? Rel 
€ € TEL OÛAF Rel 
Ë chiprm QE? Rel 
E+ cirrpt 49173 Rel 
$ copie Unkun En 2941 
Ë Ë & 1492 1592 1933 1356 2943 cour Unkun Ukn 0338 
+ curadr Unkun Ukn 
= curomd Unkun Ukn 5 1785 1821 
- curlin Unkun Ukn 0040 - 0945 1082 1112 
O7BE sdellin Este Un - 2137 2481 3623 3065 
psg Extra likn - 1747 1766 2291 
detsdr Uakun likn - 1229 1242 1278 1235 
defaut 4128 Rel 07:14 0344 6606 
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deft10 
defts@ 
deft6à 
dern 
seILPAR 
=eNFND 
sedtlin 
sextsek 
sextsk+ 
erreuR 
erreur 
findeb 
=getchr 
getdbf 
sid 
sinibuf 
insert 
invCmd 
invPrm 
invemd 
invprm 
slastky 
=loskah 


Ideb 


lfin 





nbliq 


noquer 
notfnd 
offset 
opt 
=pos 
prem 

squery 
quer ? 

=rpllin 





Editeur, execution des commandes <xcmd.as 


v2.4 +ess SYMROL TABLE os 


90140 Re 
04145 Rel 
69164 Rel 
Unkun Ukn 
Extrn Ukn 
Extrn Ukn 
Extrn Ukn 
Extrn Ukn 
Extra Ukn 
09699 Rel 
9Q1E3 Rel 
Urkun Ukn 
Extra Ukn 
6@018 Rel 
Extra Ukn 
Extra Ukn 
Unkun Ukn 
PEZAA Rel 
&14DC Rel 
49100 Fel 
0917B Rel 
Unkun Ubn 
Extrn Urn 
Unkun Ukn 


Unkun Ukn 


9533 


@486 - 


@417 
9056 


AGE + 


0496 


0079 - 


@154 - 


4027 - 


4672 
2793 
9495 


8425 - 


CUS 


yé4s 


9947 - 


9356 
0358 0391 
4415 
1427 1851 
9425 


TA 































4767 
275e 


9495 
9949 
5 2672 
v48s 


9753 
9122 





Get 
























Source 


Object 


Listing : 


Pate 


Errors 


lakun Ukr 





n Ur 


ten ibn 





: “omd.4s 


: obj/scmd.an 


list/scmd.al 


Sat Aug 12 17:41 


: 268 


à Re] 


Areuh Assembler/Linker VL.4, 


IF 


te) P 











2467 2 








rs 





ag;7 A9 


= 

















6446 
3 270a 





David & 
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d0a1 vagnn 
aea2 uaQûg 
d0o3 ouueu 
0204 09000 
an05 oanaa 
Q0QE AanQQ 
d4a7 @Pagn 
2a03 aan 
2003 ponaa 
aa1g aan 
ali Anana 
QA12 gngaa 
0A13 agoan 
9814 0209û 
9015 Aou 
d016 Auuan 
2917 Goane 
0o18 auvan 
aa13 dagot 
2020 aan 
9021 
9002 9 
0823 deoet 
2024 gaûug 
0025 Gaga 
QuI6 vauuu 
4427 90000 
2023 o20on 
4024 caoaa 
À auuvo 
0800 
danen 
auaga 
gauaa 












auouu 
qoau7 





4933 ANULO 
pad GAL? 


CEE 






d4o14 


e044 


AAGTA 





à 4405] 
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has 3& 
4952 4093C 
44a3C 
Gaga 
5 A9a3C 
9u043 
aguar, 
5£ panda 
q G4ÿac 
AGGAE 












} 468654 
LUDET 
CINE 
QAR AREA 
0067 49056 
0DEE vua5g 
0653 4085D 
9070 G606@ 
4471 GO0EC 
9072 00667 
9073 AAGEA 
9074 QUÿEC 
9075 GUG6GE 
9076 QMABE 
0477 GOUGE 
997% QAYEE 
99979 
A h4n72 
60a77 





6053 
a4a3û 





464 
alag 











Ve .4 


1RANG ON 


b 3 













1899008 


1F00800 
143 
104 
147 
EA 
2 









4û 
DA 
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Editeur, gestion du tevte <xtext.as 


TITLE Editeur, gestion du texte <xtext.as® 

, 

+ Paramètres du tableau utilisé pour optimiser l'accès 
+ au texte. 
. 

BUFENT EQU 1ù 
DELTA EQU cQë 
TURBULENCE EQU 5û 
+ 
+ Nate : 
4 


5 pour no de ligne. & pour adresse 
une entrée toutes les 204 lignes 


il faut que 4 <= DELTA + TURBULENCE <= 285 


senensenssses esse sosoneseresensssssesenesessessesesoe 
+ inibuf 

. 

+ But: initialiser le buffer d'accès au fichier 
+ Entrée: 

+ - FILADR = adresse du début du fichier 

+ Sortie: 

+  - BUFID = id du buffe 

#  - BUFADR = adresse du buffe 

+ - DERN = numéro de la dernière ligne 

+ Abime: A-D, RA-R3 

+ Appelle: I/OALL. IODAL. IOFSCR, I/0OCON 

+ Niveaux: 3 

+ Historique: 

+ 85/05/15: PD/JT conception $ codage 


dsnooo rennes se sste nement e semer ess meneensceceseoresesensee 





sinibuf 

. 

+ Désallocation éventuelle du buffer 
. 


D6=(5) =RUFID 

C=û À 

C=DATO x CA) :e bufid 

?C<0 A 

GOYES  inib1é 

UOSBVL =1/0DAL Désallouer d'abord 


. 

+ Allocation d'un nouveau buffer 

. 

inibli GOSBVL =IOFSCR Find an available scratch buffer ID 
SONC inibis Ok 


GOYLNG =CORUPT No avsilsble buffer id 
memerr GOVENG  =MEMERR 
inib15 D9-(5) =BUFID 


Rd 


gestion du texte ‘xtext.as® 


DATA=C x BUFID := id trouve 


Calculer la mémoire disponible 





D1=(5) =AVMÈME 

A=DATI # 

Di=D1- 5 D1= (69 =AVMEMS 

C=DATI À 

A=A-C A ACA) := mémoire disponible 
C=4 4 

LOCZ)  7+=LEEUAY 





. 
+ LEEWAY = place n 3 our récupérer le HP-71 
+ 7 = béesder du buffer 
. 
À ACA) := mémoire - LEEWAY - 7 
memerr On ne peut pas travailler... 





BUFENT Cé4-T) = 40n 
& 
memerr Pas d'entrée suffisante 
4495 £(4-3) = 04 
6 A 
GOYES  inib24 
A=C A ACA) := max (A(A). 4095) 


+ 


. 


ACA) = taille du buffer 3 créer 





inib£g B=A À BCA) := taille du buffer 
R1 := taille du buffer 
k C(4-3) = 40 





=I/OALL Cy = 9 (no room) 


| impossible 
aille du buffe 


Ft créé 


















+ D1 = début des donné 
D4=(5)  =BUFADR 
CDIEX 
DATU=C À BUFADR := adresse du buffer 
D1=C DI := ° début du buffer 
+ 
+ last := fadr := adresse de la première ligne 
+ bsdr := adresse du début du buffer 
+ taille := taille du buffer 
+ nl: TA 
+ dernière := 0 
+ tant que longueur _LIF CFadr) # FFFF 
. faire 
æ Sy = et 9 0 
. alor: 
+ nl DELTA 
. dernière := dernière + DELTA 
. si tsille ZeEUFENT 
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e101 
0192 
4123 
a194 
9105 
9106 
4147 
9105 
4143 
9110 
oil 
a112 
8113 
4114 
9115 
6116 
a117 
è118 
9119 
9120 
9121 
9122 
0123 
0124 
9125 
0126 
8127 
9128 
4123 
9130 
@131 
a132 
4133 
ñ134 
9195 
0136 
9197 
0133 
4139 
à149 
a141 
a147 
4143 
0144 
9145 
Q146 
@147 
4143 
9149 
4154 


Page 


4008E 
0008E 
008€ 
9008E 
2008E 
008€ 
AQ0SE 
QQ03E 
QQQGE 
AGASE 
Q0a8E 
408€ 
Qa08E 
LELEYE 
QQUSE 
Q008E 
QQ03E 
QG08E 
Q008E 
Q998E 
9008E 
Qn08E 
QOQSE 
68051 
46094 
04098 
40098 
90038 
a02a2 
06045 
aanAg 
AAQAR 
GAGAE 
Q90El 
a4uR4 
GanB7 
unes 
aQnes 
QUARE 
énact 
@onca 
auac7 
annc7 
68nce 
a00CB 


paace 5 


GUQCE 
96904 


AF2 
108 
3170 
AE7 


1808000 
146 
134 
16F 
16F 
142 
136 
134° 
C2 
D5 
164 
136 
194 
569 


6E50 


69403 15, 


60007 


aa4 


AREUH ASS. 


9151 
9152 
9153 
9154 
9155 
0156 
9157 
9152 
0159 
4160 
9161 
4162 
9183 
@164 


4a0D7 
20909 
44408 
a6@0D 
deQDF 
940€ 1 
QGGE 4 
QQ0E4 
O0pE6 
Qa0E 3 
GAAER. 


QUbEE 2 


AubFo 
anuFa 


49073 8 


5 040F6 


GOQFS 


B GOGFA C 


@4orc 
QUOFC 
GUOFF 
4a142 
99192 
90145 
90147 
0910B 
0910E 
go111 
94113 
90115 
99115 
90118 
na11B 
@O11F 
90122 


6 9a124 


Q124 
99128 


4 DOITA 


90120 
99120 


2 99134 


64133 
40136 


5 44133 


B ga1sc 





#O13F 
99142 
66144 
90147 


V2.4 


D6 





Editeur, gestion du texte <xtext.as> 








° alors 
. taille := taille - BUFENT 
. +badr (dernière. fadr - last) 
* last := fadr 
. badr++ 
. fin si 
+ fin si 
, fadr := adresse de la ligne suivante 
+ fin tant que 
+ dernière := dernière + (DELTA - nl) 
+ sbadr := (0. 9) 
+ compresser le buffer de (taille - BUFENT) quartets 
+ RÔ = dernière 
+ D(B) = nl (limite à 255) 
+ DO = Ffadr 
+ D1 = bad 
+ R1 = taille (déjà mise) 
+ R2 = last 
+ BA) = fadr limite 
° 
C=9 h 
RO=C dernière := @ 
LC(2)  (DELTA)-1 
D=C B nl := (DELTA)-1 
D@=(5) =FILADR 
C=DAT@ A 
Da=C D@ := ‘ en-tête du fichier 
DO-D0+ 16 
D@-D0+ 16 
A=DATA À ACA) := REL(S) FileNd 
CDOEx C€A) := © REL(5) 
D@=C 
Ç A CCA) := ° EOF 
A BCA) := fadr limite 
D@=D4+ 5 := ° première ligne 
CD@EX fadr 
Rä=C fadr 





GONC inib5Q B.E. 
inibé3 COTO inib9ù 


e CCA) := fadr 


inib5@ ?C>:R À at FOF © 
GOYES inibë4 fin tant que 
Da=c D@ := © début de la ligne 
A=DATO 4 


+ SWFBYT (417424) recopie pour eviter un GOSBUL 
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C=A A 
ASL A 
ASL A 
sk A 
CSR A C(49 := 4 (entre autres) 
A=C 8 ACA) longueur LIF 
+ fin du pompage 
P= 3 
C=A WP on sait que C(4) = @ 
A=C 8 
A=A+1 UP Cy = dsi COA) = FFFF 
P= 4 
Got inib94 fin tant que 
e conversion en nombre de quartets à saute 
ASRE 
h=A+] A 
AsA+A À 
A=A+A A ACA) := nb de quartets à sauter 
D=D-1 --nl 
CONC inib£4 go if nl >= 0 
R3=A R3 := sauvegarde de À 
C-0 A 
LC(2)  (DELTA)-1 
D=C B nl := (DELTA)-1 
A=R9 ACA) := dernière 
A=A+C À 
A=A+T A 
RA=A dernière += DELTA 
A=R1 ACA) := taille 
LC(2)  2eBUFENT 
A 
GOYES inib80 go if taille <= 20 
LC(2)  BUFENT 
A=A-C À 
RI=A taille -= 19 
A(A) := dernière 
À +badr := (dernière... 
5 
ACA) := last 
nouveau last := fadr 
A CCA) := Fadr - ancien last 
A La . fadr - last) 
5 

























































































































ai 
JG YOISE NS 
4U1SA 1Fonaan 
va197 
? GUISA 
282 64190 
GAIA4 
5 QO1A7 
014 3 
49140 
AGLAF 




















? dar 
Da 1BE 






daau 
Mi dGID2 
4344 ARIDS 





















PD/JT 3 jaut 


: FO/JT recslcul 


t du recsleul 
a- her 





nt 





steel B=t A 
DI=(5) =BUFADR 
CeDATI 4 
D: Di :=  buffe 
DQ=(5) =FILADR 
A=DATA A 
= A 
A AC) := ° début du buffe 
À DCAY := © début du fichier 
À 
A lsst :s 1 
lsst := numéro de la première ligne 





sek4ûS Du 






THPE = numéro à trouve 








duo 
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@ai4A 40103 
@@i4A 11: A=R3 ACAD := nb de quartets à sauter 96103 114 cer@16 A=Rÿ ACA) := last 
#6140 AU1DC 192 Ra=C RO := nouveau last 
Ga140 136 inib£@ CO@EX GGIDF DE ACEX A 
00150 C=C+A A CA) := Fadr 5 DOIEL EA A=A-C A ACA) := ac fines List 
99152 F8 SOTO inib5g fin tant que A41E3 DZ ñ 
96154 9Q1ES 31AF LC(Z2) DELTA )+(TURBULENCE } 
AO15E inib49 091E3 SBE ZAC À 
94156 d GO1EC FC GOYES sek605 recalcul.. 
@0156 + marque de fin de buffer 9 ÔGIEE + ajout du 5/06/1983 
20156 . QAIEE 3163 LC(2Y  CDELTA)-CTURBULENCE ) 
49156 AF2 C=û 4 691F2 8Bè ?Ac<C A 
40153 1509 DATIS=C BUFENT +badr := (9, 4) 213 OU1FS EC GOYES  5ek945 recalcul auss 
@@150 G01F7 + fin de l'ajout du 5/05/1988 
90150 + Calcul du numéro de dernière ligne 5 091F7 
44150 . 6 241F7 174 
40150 317C (DELTAD-1 on sait C(4-2) = 000 GO1FA 147 CA) := adresse incrémentale 
60161 PER à CEA) := (DELTA)-1 - nl 601FD C3 
4Q164 118 ACA) := dernière 174 
4@167 CA dernière += (DELTA)-1 - nl 
QUI 4 IBuyua 147 5ek036 € CA) := numéro 
66174 144 := dernière 24A 
+ 79 et 944 
+ Comure Ee1 
ce 5ek919 
. 
:# taille du buffer + Deuxième partie de la routine 
, 
serg4g 
- 10 + 
+ Sauvegarde du numéro de la ligne à atteindre dans 
9F 09 C=B ñ numéro de la ligne 
pa2l1 128 CROEX last (inférieur à n0) 
Détoross ss reset se etes esse esse nes sense d9214 + 
# nA214 o R9 = numéro de Îa ligne à atteindre 
* fu214 + COCA) = last (ina) 
+ E (on n) Qu214 + 
+ 20214 El BeB-U À BCA) = nombre de lignes à parcourir 
. ls 0344 
. 0341 
+ ligne parcourir 
. Di, THPS 
+ 
. 
N 
. 
| 
' 
Editeur, gestion du texte <vteit as Editeur du texte <xtext.ss 
Î 
« Fat . 3 Ten 
. = +p -numér é + 
‘ C22BEUTA+TURBULE Epc | 
$ ir l 
. ë 
. 
. 
+ e 8 
. 
, . 
. . act 
+ . 
: sdr = | uivante C he 
e. Fin pur î 
renvoye 
+ Affectation agist set 45 a CtA) 
+ KA = lsst Dè = 
+  bl= set da 
. RCA) 


sekQ54 A=DATE 


4 
+ SUFRYT C#I7AA) rec 
À 








C(4) := 9 (ent 
ACA) longueur 


autres) 


A 
À 
) 
À 
B 





+ fin du pompage 
G 3 


KP on sait que C(4Y = à 





serQEA 





GONE sek94 
RTN 


ossorsosssos esse ss nsc ess en esssorsesessossesssesenes secs 


+ LIFlen 








JPC 69 Page 35 — 



























































































































































Page 003 Editeur, gestion du texte sxtext.as" Page 011 Editeur, gestion du texte <xtext.as?” 
AREUH ASS. V2.4 AREUH ASS. V2.4 

9491 00270 . @g2F? 

u4a2 + But: calculer Va lonqueur d'une ligne LIF Q02F2 1F00@00 =rpllin D1=(5) =BUFADR 

0493 + Entrée: ÿ Q402F9 147 C=DATI À 

è494 +. - D9 = 7 ligne LIF Qo2FC 135 D1=C Di := buffer 
6485 @ + Sortie: Qe2FF * 

a486 +. - C(A) = longueur de la ligne en octets @a2FF + Trouver l'entrée dans le buffer 

d487 9 - - ACA) = taille de la ligne en quartets (y compris LIF) @5a7 QQ0FF + 

9405 + Abime: À. C(A), P Q59S OQ2FF 147 rplaig C=DATI A 

ÿ4ù3 0e + Niveau»: À 0543 94772 BAA ?C-0 Â 

a410 à & orique: 4519 00305 0Q RTNYES Ok, yarienafair 
e41! ° /05/18: PD/JT conception & codage 4511 00307 8BS 2CSB A 

@412 soon soon seen sers me ne etes essssesessosenteneesesse 0512 0030A 88 GOYES rpln2® Trouve 

9415 4513 80300 173 D1=D1+ BUFENT 

9414 =LIflen A:DATO 4 A€3-0) := longueur LIF brute 6514 0030F 5FE GONC rpinié B.E.T. 

9415 « + SUPBYT (#17A24) recopié pour éviter un GOSBVL A515 99912 . 

a416 C=A A 4516 00312 e L'entrée est trouvée. 11 faut actualiser l'adresse de 

ASE A 4517 04312 + l'entrée suivante. 

ASL À 0518 90312 + 

CSR A 2519 00312 174 rpln2@ DI-Di+ 5 

ÛSR A C(4) := @ (entre autres) 4 00315 147 C=DATI À 

A=C B ACA) longueur LIF 29318 C2 C:C+A A A peut étre négatif 

« fin du pompage Q031A 145 DATI=C À 

P= à 9031D 01 RTN 

C=A WF on sait que C(4) = A 9031F 

P= a 90317 nasnsdseres rss nds sein tirer etat 

Az A 6 @@31F + dellin 

A=A+1 À 9031F * 

ASRE 28 Q031F + But: supprime une où n lignes dans le buffer 

AzA+! A 523 0031F + Entrée: 

AzAth À a@31F + - C(A) = nombre de lignes 

A=A+A ë ACAY := nb de quartets à ssuter A031F e - A(A) = longueur de ce qui a été enlevé 

RTN Qa3ir + - B(A) = numéro de l'ancienne première ligne 

3 QGS1F + Sortie: 
nsséonsssssereresesesees sean neesesessssesse esse AU3IF + - DERN est réactualisée 
+ sddlin + Abime: A-C, PCA). DI 
+ + Appelle: - 
+ But: ajoute une ou n lignes dans le buffer. + Niveaux: 4 
+ Entrées: + Algorithme: 
+ = nombre de lignes 0031F + début := B(A) 
+ longueur de ce qui à été rajoute à QA31F + delta ACA) 
+ numéro de la nouvelle première ligne ei * nombre := C(A) 
# o @a31F . last BCA) + COCA) - 1 
+. C{A). DCAN, DT 6031F + avant Î 
+ @ 4031F . 
°! RN est réactualisé en conséquence @031F + DERN -= nombre 
+ Historique: 5 6031F , 
+ 22/05/24: FD/JT conception & codage 2431F + Je PHASE I : chercher la ligne de début +/ 
dsososose reset ste nos eo vensenéestssrenessescensessensene 4831F . 
@031F + _p := &buffer [0] 
saddlin D=C A DCA) := nombre de lignes ajoutées 4831F + tant que p->numéro < début 
1 — 
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dQ31F + faire 
2DERN 9031F . si p-numéro == D alors sortir fins 
A 3 4431F . avant := p->numéra 
& #931F . pt+ 
A 555 4931F + fin tant que 
6 0631F Je pest la première entrée >= début +/ 
3224 1006 Di=(2) =BUFADR QAR . 
& MGCEB 147 € ) 4931F + + PHASE II : chevauchement de frontières +/ 
3 60288 195 TE Di := buffer LAN + 
OUCRE + 9031F + tant que last >= p->numéro 
+ Trouver l'entrée dans le buffer 0831F . alors 
, 9031F . si p-numéro == @ alors sortir fin si 
adlnlà CeDATI À OU21F . p->adresse Ü 

?C=0 â 64 6031 + p->numéro := avant 

RTNYES Ok, varienafair 5 QA31F + p++ 

?C) A GAS1F +. fin tant que 

GOYES  sdln2g Trouve ! @031F 4 

8 040CB Di=Di+ BUFENT 0031F © Je PHASE III : actualiser la fin du buffer +/ 
G02CE GONC sdln1g BR.E.T. 0421F + 
992Di ° 9031F + tant que p != 0 
80201 + L'entrée est trouvée. Reste à actualiser l'adresse. et le 8a31F . faire 
a@201 + numéra des lignes suivantes. 2 9031F , p-adr -= delta 
60201 . 0031F + p->numéro -= nombre 
ga2D1 adin£@ Di=D1+ 5 @631F . delta := 4 

C=DATL À CCA) := adresse 0031F + p++ 

CeC+A A 0021F +. fin tant que 

DATI=C À buffer := nouvelle adresse 9021F + Historique: 

Di=Di- 5 D := ° numéro  0431F + 82/05/24: FD/JT documentation de l'interface 
4020F 8451F + 28/10/29: PD/JT conception & codage 
G642DF adin29 C=DATI A t031F + 63/11/41: PD/JT déplacement de la modification de DERN 

1 ?C:0 A 9031F Denon sombres nes eos ssessereessssetesessesenee 

RTNYES finiiiiiii |! 2 9031F 

CsC+D 4 @a31f sdellin 

DATI=C À 4931F ° 

Di=D1+ PUF DAT + Sauvegarde des valeurs 

GONC adln34 R.ET ; 4931F + - début (B(A)) dans B(C4-0) 

9931F + - delta CACA)) dans B(C9-5) 
ponoessoseensssssssre ve semesenasesessssvsssseseesessesuneee CTI + - nombre (C(A)) dans B(14-10) 
+ cpllin 0031F # 
. 0931F 07 D=C DCA) := nombre 
+ But: remplacer une liane dans le buffer 91 00321 éF44000 GOSBUL 
+ Entrée 2 64328 DE C=A 
+ - A(A) = différence de taille (nouvelle - ancienne £FO9a00 GOSBVL 
#  - RCA) = numéro de la ligne remplacée D3 C=B 
+ Sortie: BFS B=C 
+ Abime: COCA), DI . 
+ Niveaux: M + B(14-14) = nombre 
+ Historique + B(9-5) = delta 
, 22/05/24: PO/JT conception $ codage + B(4-4) = début 
dssosoossoseosseesesssese seven ressens esemesessséeseneese + D(A) = nombre 
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2681 6932 . 4701 DATA 
0602 V096 A7AT OGUAF 
0603 00336 , 4703 VATA 
9604 00256 + DERN -= nombre 4704 G038F 
2605 04336 ° 4795 OY3AF EC CCR) p--numéro - nombre 
9606 00236 1Fenaue D1=(5) =DERN 4706 AIR 145 p--numéro -= nombre 
9607 0433D 147 CeDATI A ÉCA) :e dernière 4707 U93B4 174 
0608 90240 ER A CCA) := dernière - nombre 4792 003E7 
0609 40342 145 st À dernière -= nombre 4793 GQ3E7 147 CCA) p 
0619 00345 6710 493BA E9 CCA) := p- 
0611 09345 * 4711 943BC 145 p-'adresse - 
9612 00345 + p = buffer [41 9712 493RF 174 
4613 90345 # avant := | 4713 6202 
4614 69345 , 9714 69902 Di E=4 A delta := 0 
9615 49245 1D08 =BLIFADR 9715 43C4 
0616 00349 147 À LCA) := & buffer [0] 9716 00304 147 À COCA) := p-/numére 
4617 04340 135 DL: 4 buffer [4] 9717 6Q3C7 BAE À 
0613 0034F 4713 6G3CA 5 disié 
8619 UA24F Di à à avant <= Ÿ ai 
9628 @n3SI F7 PeD+] À avant := | Éh3CC Gi RTH 
DE21 04353 + GAGCE 
4622 3 + tant que p-numéro : début [TE none osent sense sese sens eee esonsesese se 
4623 + faire 4 + syncbf 
. si p-‘numér 4 alors sortir fin si + 
+ avant := p-onumére + But: synchronise l'adresse du buffer après un mouvement 
ss p+s + mémoire 
+ fin tant que + 
a628 + . IU du buffer 
a6cg + Invariant de boucle + 
#63 + - Dl = entrés courante dans le buffer Cp) + sdresse du buffer 
A631 + - RCA) = début 
0632 É 
9633 11190 A 
à 
À ip numér 5 4 alor ortir % codage 
BP A séssnessnssssssesssssrsss 
SOYES jitun 
660569 D? D=t À avant A: n =EUF 10 
URLS E # 
T = ICFNDU 
SEUFADR 
seonrostes sono sn sons sera se soso eeseereessresesenses 
+ SRCLIN, SRCADR 
, 
+ But: chercher une chaine le fichier test 
+ La chaine à chercher est 
#14 teur n du teste cétevt. a 
AE + Laleul de last + Ge  dÂ piée 
AF “ CE = nombre 
Fegvuu eCÉLÉS  CCA 
A sd + nombre i 
A last 
A = last 
i Ait 
, 
+ tant que last pe mumér es 
. sl 
. ï alor ctie fin si ce 
+ p- 
+ bo 
, p++ FUNCRL. TMPS 
+ fin tant est dévor de cia 
CENT + 
G67û + Invariant de boucle 4 (POSADR) pour SRCADR 
4671 # à = last 
a672 + p séparation de la routire de reche 
0673 + D/IT ajout de SRCAD 
Q574 d1214 C=D & PO/JT adaptation au nouvesu F 
a 1 DATI-C p début 
Ideb EQU C=FUNCRA }+08 5 quartets 
lfin EQU =FUNCRO }+ 5 quart 
surlin EQU UNCRA )+10 5 quarte 
sauvkè EQU (=FUNCRO +158 $ quertets 
sortir =SRCLIN 
+ 







AF4 
cFurgun 
QUTAU GE 
AGJA4 EFounae 
HÔGAR ESA 
0642 GU3AF 

A7UU MUTIA 









ACLA- 10 
6 AGE) += 
BA) 


ACAY = 








nombre: 


nombre 








#74) 
a7q2 
07G3 
#794 
a745 
ù7SE 





ë AAGEF 





ÉAGFE 





a03FD 
saga 





NO 407 


CHATS 


AGABE 





1F08an0 
141 
iDoe 


aA4QD 707 


20411 
anal 





+ Ssuvegarde pendant seer 








B 
DI=t5) deb deb := AGAN 
DATI=A À 
=(2) fin Phinue Gus 
10 A 
D) sauvhà à = 
A L x 
=serk 
sauté à à 
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64in 


iFeonaa 
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GOTO SRC18A 


=SRCADR D1=(5) deb Ideb := ACA) 
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o901 OQ4BF 
8902 G04EF 
0303 GOARF 
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+ 88/10/15: FD/JT séparation de GETSRC 
+ 6593/05/05: PD correction de la documentation 
non orssons ones poses tese ses sense seeseesereonresceenensene 


























































141 DATI=A À 0904 O04BF 
1p8a D1=(2) fin Ifin := CA) 4905 GB4RF 334040 invprm LC(4) =eILPAR “Invalid Parm” 
145 DATI=C À agè6 hu4Cs Q2 RTNSC Erreur 
0387 Q44C7 
SRAC14Q 0908 694C7 =DELIM 
+ 4399 48407 + 
+ Invariant de boucle a31ù 0407 + Chercher le caractère délimiteu 
+ Ideb = no ligne courante à911 @G4C7 S 
+ Ifin = no ligne fin 0312 094C7 SEQ88û GOSUBL =getchr caractère délimiteur 
+ DA = adresse ligne courante à913 084CD 41F G0C invprm pas présent : “Invalid Parm” 
+. B(A) = offset = offset dans la ligne courante 9914 QG4Dà AEB B=A B BCA) := caractère délimiteur 
* 0315 00403 + 
6 curlin := Dû 9916 00403 + En fonction du mode, analyser en tenant compte des "\" 
à ) curlin 9517 00403 + ou non 
44 DATA=C A 0403 + 
34 pour LiFlen Q84D3 1800008 D9=(5) =MODE71 
@04DA 1564 C=DAT S 
@Q4DE 137 
1 octets QQ4E1 134 Sauvegarde de Di dans D@ 
ce qu'il reste QQ4E4 195 
GG4E7 J4A C=Q S mode HP-UX 
DOAEA 31 GAYES  DELI20 
QA4EC - 
AG4EC + Mode HP-71 : on recherche bêtement le caractère B(B) 
GG4EC ° 
ie à chercher QAAEC 8EQUQU DELI19 GOSUBL =getchr 
+ Q04F2 443 G0C DELI74 EOL trouve 
+ Da FAP B délimiteur ? 
+. AA de la chaine GOYES  DELIIG non : on continue 
+ Ra - GONC DELI66 B.E.T. délimiteur tro 
+ RICA) = vrai début 
, . 
+ Mode HP-UX : le ètre par "\" 
ouvé À + 
DELI2A LCASC “vi 
E=û offset :e à DEL130 état := 0 
DELIA4U egetchr 
curlin DELI7@ 
à S sel 
DG := 7 ligne courante état 1 on repasse en état à 
LIFlen + etat 
| ë AGE € DEL169 teur trouvé 
D9 := * ligne suivante 4947 8 ? 
4948 DELI49 non : on continue en état à 
lfin 9949 90510 845 S état := 1 
àa459 & AÇAD = fin 0950 Q051F 54€ DELI4Q B.E.T. 
l 
j 
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CCAY := deb * 
60433 + Pour le cas ou on est arrivé sur le délimiteur, 
44435 ++]deb * on revient en arrière. À charge pour l'appelant de 
ELEC ldeb £= Jfin ? + passer un caractère 
00438 RS qui : on continue * 
00490 + 171 DELIEQ D1-Di+ 2 13 M.S. va dans le sens inverse 
20430 + Arrivé à 14 Fin sans avoir trouvé E7 D=0+1 A 
3 09430 + + 
60430 730094 LÈ(4)  (=id)"(=eNFND) "Not Found” + Cas EOL : on laisse D1 et D(A) en l'état 
00443 03 RINCC # 
Qn4A5S AD2 DELI7d C=@ M pour le CSRB de tout à l'heure 
6ù445 * 157 CD1EX 
09445 + Arrivé à l'occurrence 135 D1=C 
DQ4AS « * 
ag4ës DS 4 B A BCA) := longueur de l'occurrence + DO = * début 
0G4A7 1F05900 Ideb BCA) :7 numéro de ligne 0967 09530 + C(A) = dernier caractère de la chaîne 
OG4AE 143 A=DATI À 0968 00539 + D1 = * caractère suivant (sur le "/", ou sur EOL) 
g4481 1008 D1=(2) curlin Di := ° début ligne LIF 0969 90530 + Di et D(A) sont à préserver 
à 09485 147 C=DATI À 9370 04530 . 
Qm4RS 135 D1=C 9971 00539 132 ADQEX 
@4eB Da (= A C(A) := longueur de l'occurrence 0972 00533 134 D&=A on garde D4 encore un peu au chaud 
3 94480 02 RTNSC match found 9973 00536 EE C=A-C A 
O4 4BF 0974 04538 81€ CSRE C(A) := nombre de caractères 
OG4BF séresrs esse sense seras messe seteseseseseeseseséeesesseseee 4375 005%B 132 ADOEX ACA) := © début de la chaîne 
o A44BF DELIM 9976 Q059E 
9977 0953E ACA) = début de la chaîne trouvée 
But: analyse une chaine de recherche (ou de remplacement) 975 0053E C(A) = nombre de caractères dans 14 chaîne trouvée 


AA4BRF 
O648F 
G94BF 
QGUAEF 
G@apF 
apr 
à GG4EF 
094BF 
Ga4pF 
QUaBF 
9G4BF 





DS 6 0 RE 6 6 eh 8 6 Ni Ne 0 et de 6 een + © € 
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suivant le mode CHP-UX ou HP-71). La chaîne est 
par le délimiteur (le premier caractère de la chaine) 
ou par la fin de la chaîne 





minée 








Entrée: 
- D1 = ‘ premier caractère (le délimiteur) 
- D(A) = lonqueur Eotale de la chaine 
Sortie 





- €y = 4 : pas d reur 
- Di et DCA) réactuslisés (avant / final ou sur EGL) 
- ACA) = ° début de la chaine trouvé 
- ÊCA) = nombre de caractères dans 





13 chaine trouvée 








= Cy = 1 : erreur 
- C(4-4) = numéro d'erreu 
Abime: 4-0, O4, Di 
Appelle: gebchr 
Niveaux: 1 
Note : en sortie, D1 pointe sur le "/", ou sur le EOL 


Ceci est fait pour pouvoir distin le cas 
"R/toto/" du cas "R/toto”. Cela plus embetant, car 
3 lant doit explicitement passer le délimiteur. Mais 


la seule manière de faire (simplement) 








rique: 





3 4OS3E 
0953€ 
GASIE 03 
04540 
44549 
dv540 
6 40540 
69540 
4454 
00544 
40540 
40549 
4931 09540 
9432 00540 
90540 
9054û 
99544 
5 A549 
090540 
4a54û 
49544 
90544 








D1 et DA) réactualisés 


+... 


RTNCC pas d'erreu 


sonne ones penses setesesééeneseseessseeones tes 





- (4-0) = numéro d'erreur 
Abime: A-D. RO-R3, Dà. Di 
Appelle: DELIM. COMPUX ou COMP71 


+ GETSRC 

. 

+ But: analyse et compile une chaîne de recherche suivant le 
+ mode (HP-UX ou HP-71). La chaîne est terminée par Île 

+ délimiteur (le premier caractère de la chaîne), ou par 
+ la fin de la chaîne 

+ Entrée: 

+ - D1 = ‘ premier caractère (le délimiteur) 

. - D(A) = longueur totale de la chaîne 

+ Sortie 

, - Cy = @ : pas d'erreur 

+ - R4#(7-0) = caractéristiques du buffer compilation 
. - Di et D(A) réactualisés (avant "/" ou sur EOL) 

, - Cy = 1 : erreur 

. 

. 

. 
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1091 00544 + Niveaux: 5 
1902 00546 + Note : l'appelant doit passer explicitement le "/" final 
20549 + Historique: 
94540 + 82/07/09: PD/JT conception 8 codage 
06544 . /19/15: PD/JT séparation de DELIM 
94546 ones onto nes stone teens eme neesoneeseesees es ee 
40549 
} 40549 738F =GETSRC COSUR =DELIM 
pusa4 auè RTNC erreur lors de la recherche du ‘7? 
04547 + 
00547 + ACA) = début de 14 chaine trouves 
00547 + C{A) = nombre de caractères dans la chaine trouves 
3 00547 + Di et DCA) réactualisée 
40547 . 


40547 Gh 
00543 
954€ 





sauvegarder le nombre de caracté 





R3(4-6) = O1 : R3CA) := DCA) 





Dj := début de la chaine trouvée 
À ACA) := nombre de caractères 
de caractères 
la chaine trouvée 








YAGGEF 3 6,4-0) = partie restante sp la chaine trouvée 
28 QGGCF . 

1Envuun DU=(5) =MODE7I 

1564 C=DATA S 

HOSEA GA4A 
AAGED CA 


33 QOSFF SEuuuu 
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HA GOSDE + Placer la longueur LIF (qui est dans A) en OUTRS 
1102 QGSDE 146 FHILIQ C=DATG A 

1143 495E1 134 D#=C D6 := ° début ligne {long LIF) 
1144 095E4 EFogda GOSEvL HPBYT 

1195 W95EB 1523 DATO=A 4 

1196 GOGEF 02 RTNCC Cy = 0 à pas d'erreur 


1147 965F1 
11u3 a05F1 330000 FMTERR LC(4) =eL2LNS "Line Too Long” 


1143 QU5F7 07 RTNSC Cy = 1 

1119 4w5F3 

1111 UaëFg sons oser sers essences ere nee seseseesesesenesesee 
1112 045F4 + MUFILE 

1113 9n5F9 , 

1114 695F3 + But: déplace une partie d'un fichier dans un autre, er 
1115 00579 + supprimant éventuellement 13 partie "eource" 


He 60SF 


4 + Entrée: 


















1117 80573 . ACA) = © hesder 9 
1118 695F3 + - RICA) = © début partie à déplacer 
1119 905FS + - R2(A) = fin partie à déplacer 
1124 0@5F9 * - CCA) = hesder destination 
1121 #65F9 + - RO(A) = emplacement où doit étre insé c 
1122 0a5F3 + - sMOVE = 1 si l'origine doit être détru 
+ Sortie: 
, p3s d'erreur 
+ header origine mis-4- jou 
. header destination mis-à- jour 
Fr erreur 
+ = numéro < 
4a5F3 . des deux 
00573 sb F@-R3, 06, O1, FUNCR« 
495F3 + hp 77 FAMROM, MOVEeM, RELLIN, LIFlen 
MeErs + Niveaux TA 
gas + Algorith 
































































00675 EAU . Faramé 
2Enaaa GETSEU COSURI . orghd 
. . prgdeb = origine 
+ Compilation terminée. Festaurstion de O1 ét D'A) sans . orgfin = l'origine 
e sbimer COCA) et Carry + dsthdr = d 
+ - dstadr 
ET 4 . taille = ornfin - srgdeb 
: 3 
A + Je Phase À : Allousr un buffer +/ 
2CIRCE + 
sstaurat ii . allouer un buffer temporaire et stacter Îles 8 | 
À restaurat de CA) ï. 
Fe RER AE * nation 7e; | 
désessssosssessseessossiere ses sers ses sesnessssresessensses + taniess -ÿ | 
+ FMILIF GncFa + 
‘ duSFs . 
| 
| 
| 
| 
! 
| 
| 
dite vtext.as Edit test 35 
4 | 
+ But: formatte ï . AVHENS + # particuliers « 
+ les convent 1 t pla . 
. GUTRS (pour laisser place pour si in] 
+ et pasitianne * i 
* + de padding doit étre s jouté + | 
+ Sortie + iginale 153 udate 
. pa ui + 
. réa i besoin . quartet: 
. détut s liqne (1 se L ans OUTE Ÿ 
+ ligr lang * tin insérer 
+ eL . copie 
+ LH) * début source | 
+ Flan + tin source 
+ + début dest = 
ë + fin copier 
+ PO/IT con n à codage + capie 
. FO/JT ajout du flag à + début = dstadr + taille 
Men nesensesoneonenesoeeesesesraneesseremesssneresssssessssse . fin source orgfin apr 
. début dest = dstadr + (dstai 
é 117 . fin copie 
1170 9A6FA ° fin si 
1172 AAGFA ° désallouer le buffer 
D@ := QUITRS 1174 u05FS . sorti 
1175 Q05FI + fin si 
C(A) longueur tatale en quartets 1176 @45F9 ® 
1077 04543 CAN = longueur en octets + © 1177 945F3 + /+ Phase IV : Recopie dans le fichier +/ 
AOSAC 1 À 1175 40579 & 
4 À 1174 Qn6Fa + tant aus orgdeb # orgfin 
+ Test de longueur : R553h 1184 à . 
A: 1181 ANEFE . le Phase IV.a : prendre le maximum +/ 
1162 608F3 + 
:= lonqueur en octets 4 SNPOYT) à 00SFA . 12 := crgde 
à + Esnt que 12 # orgfin et (12-argdeb }4LIFlen(12)>2mer 
. IT +e LIFlencii) 
. fin tant que 
+ Faut-i > padding + 
. ss 2 
. 
° iV.b : ligne trop lonçue +; 
+ 
e . 12 += LIFflen(l2} 
ès bien comme ça . tant que orgdeb 
+ Ji + “ :# min (mem. ) 
AQGCE . 
1436 GASNI . insère 
1937 . taille * 
GAGDE EE ñ . début dest 
CEA 144 AUMEMS 42 © ° fin ine 
AASDE 174 Of := QUIRS , copie 
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+ 1301 00579 mvmem  EQU 13+=FUNCRO 5 q : MEM (device dest.) 
+ 1342 45F4 sxxx  EQU 18+=FUNCRO «aq: 
. 3 405F9 
+ dQ5F3 92 mverr  RINSC 
. ./ 5 005FR 
. > A05FB =sMOVE EQU à 
& dQ5FB 
+ f 305 AASFR =MVFILE 
. fin détruire QUSFE sonores ones rerenseeeesess ss 
+ dstadr += QASFR + Phase I : Allouer un buffer 
. fin tsnt que eosvessosesssveses oosonesseseres 
+ 
+ 3e IV on à trouvé des lignes +/ mvflag 
+ . 
+ = |! - orgdet + Sauver temporairement A(A) et C(A) dans R3 car Îles 
. + routines de buffer les abimeraient 
. + 
. < quartet: WOSFB SFuboag 
. tadr 60602 DE 
. fi GA604 108 = ACA) 
. € 97 
+ 
. f CTI] find an available scratch buffer id 
, ï of 
, 8040000 GOVLNG =CORUPT No available buffer id 
+ . 
: + COX) = id disponible 
+ oragdeb + 
+ gdeb + mvfilu DO=(5) mvbid 
+ DATH=C x mvbid := id trouvé 
+ B=C x BOX) := id t 
+ adr + L=ÿ ñ 
+ fins LO(2Y MUBUFS CA) := taille du ' 
+ fin tant BCEX À BCA) := taille : id 
« désallouer le bufter |: 
° sortir + CC) = buffer id 
+ e RCA) = longueur demandée 
+ Dét . 
æ. Î 5FUG0 un GOSBVL =I/OALL Cy = @ : no room 
. 1342 06635 53 GONC mverr RTNSC 
, 1243 ( + 
, E 344 +R ie des paramètres dane le buffer 
. 1345 + D past buffer header 
« | . 
, | 180800 Da 
. | 137 CDIE 
, 195 Disc 
. 144 DATU=C mvbadr := adresse du buffer 
Editeur, gesti du tavke xfext.àe Editeur, gestion du texte <xtext.as 
+ Di=Dt- 7 
, LCCI)  CHVBUFS)/5 nb d'adr 
æ G 4 rb adresses := 6 
. ë 176 7 
+ 
+ 113 AC) := orghdr 
. 141 A orghdr 
, } 174 5 
+ On demande 3 5 jouvoir transférer dl 
+ les lignes e vi n'arrive que lorsque 141 A orgdeb 
on fsit un 4 l'intérieur de la méme unite. 174 [1 
. it 
. En cas de 141 À orgfin 
+ différen 174 5 
+ transfert d'où il n'y à pas 
+ be de ent dans le 118 CERS 
+ même périphérique, modifiée par £FU0Goa COSRUL  =C C(A) := dsthdr 
+ définition 145 DATI=C À dsthdr 
0853 . 174 DI=D1+ 5 
4453 + Note: Les Fichiers inscriptibles 118 € 
+ 145 dstadr 
. 
+ tthime 1Foauan 
5 HASFA + 114 CCA) := orgfin 
ausF3 + codage 99699 111 ACA) := orgdeb 
3 +. 59e ét fin du codage n9693 E2 CCA) := taille 
+ it du test "Illegal Ac ; 145 taille ne doit pas étre actualisée 
. retrait du test "[llegal Acce 
docnsoosenseree sense ses onseseesesresseeesensreeseeeeseres anssssrosresereseereresssereneeséesensen 
0G5F 3 + Phase IT : As de place pour la destination ? 
TEE) + dd 0000606460 06e eee pes 
3 + le buffer, Les valeurs définies ici 
, ranport au début du buffe , 
° + Localiser le device du fichier origine 
, 
119 muf2go € C(A) := orgdeb (dans origine) 
#Faaqon GOSRVL  =LOCADR 
+ D(5) = 4 : main 
sauvegarde pendant cas pathologique + D(S) 40 D(S) = port ram 
3 F de pile (15 a) AGEAD * port rom 
tai buffer 3 DAFAU . 3 : port eprom 
GDF AZ + D(9} = extender 
+ + DCI) = port number 
° Données en mémoire statique, [1 s'agit ici de FÜR + D(7-2) = rest of config entry 
+ . 
mybid Mu FlINCFU id du buffer W 
nbsdr ns=FUNCEU & du bufEer R3 =: sauvegarde DCH) origine 
ris Te 35 e 5 à :gdet 1400 0 . 
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1401 MBA e Localiser le device du fichier destination 

1402 90648 ° 

1403 906A8 115 C=RO CCA) := dstadr 

1404 O0GAB &F04000 GOSEVL  =LOCADR 

1405 OC6R2 7D72 GOSUR  memD calcule la mémoire disponible 
1406 006BE 1F00000 DI=(5) mumem 

1407 GOBRD 145 DATI=C A mvmem := MEM (device destination) 
1468 906CA + 

1409 OBECE + ACA) = C(A) = MEM (destination device) 

1416 DOECH + DEW) = device info of destinstion 

1411 064 + R5 = device info of origine 

1412 686CA . 

1413 O0BCO 86 

1414 606C3 ER tester MEM > TAILLE 

1415 . 

1416 + Cas "move". Est-ce la même unité ? 

1417 . 


1418 @66CS 
1419 GUBCE 
1420 GOECR 
1421 8aECD 
1422 99604 


CO) 2 device info af origine 


ter MEM > TAILLE 





tester MEM > TAILLE 








1425 8 

1424 51 

1425 G06DC ° 

1426 @ 266 Si 

1427 A MEM Slt 


muf254 r'est tout bon 


<eMEM 






d'erreur 





numéro d'erreur 





taille 


tsille 

À 

À 

mvf224 “Insufficient v° 





esssséessressrevesses seen 





+ Phase [IT : Détection des css particulier 


téssosessssoosessasses essences ee 
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1501 00767 163 
1592 O476A 

1543 067BA 

1544 097EA 

1505 0976A 

1506 G476A 

1507 QO76A £F00009 
1548 49771 00604 
1543 Q077€ 

1516 60776 

1511 90776 

1512 4@776 

4776 

@4776 

515 29776 

6 64776 7BE 
80774 
£ 09774 
6077A 
A077A 
8477A 
G477A 
66778 
ou774 
6477A 
6 9677A 
G477A 
60774 
40774 
a 0Q77A 
6A77A 
2 4G77A 
3 0477A 
24778 
4677A 
au77A 
Q477A 174 
5 a4770 14 
wu7 
ag7 
aa7 

























CP 


... esse .. 


ss. 
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au muf3äa D=(5) 
C=DATU = début du 
Diet BJ 7" début du bu 
Di=fPie 
CeDATI 
üi=Ql+ 
=DATI 
DisDl+ udstadri-(orgfin 
A=DATI A AAY :< dstad 
+ 
+ A(A) 
+ BA) = 
+ CAN = 
+ 
FACE 3 s üradeb 
RÔNES  myF4n 
"AC À 4 sragfin 
GOYES myFdnn 
3 + 
1473 GQ7:5 + Css particulier hevauchement des zanes 
1474 407 + 
1475 047 ST=0 





1475 9073 


























1477 647320 GOTO my fun : NOF 
1478 @474! 

1479 04741 & mvF4dn GOTO mvfduû Rallonge 

1450 00745 

1451 99745 mvf318 

1482 @ÿ745 . 

1483 96745 + insère 

1434 Qù745 so taille = "taille" quartets R(A) 
1455 40745 . début = dstadr ACA) 
1486 QA745 + fin insére 

1487 , 

1458 00 Bag a taille 

1489 Gù74Ù À LAN := taille 

1436 @674F À BiA) : taille 

1431 mobs 

1492 À 

1433 Di := 

1494 À C{A) := 

1495 @ Corgfin)- 

1436 (dstadr)-(5 GE E dstadr 
1497 40764 ù À AEAY = 

1498 OU7b7 + 

1499 40 e RSCA) = dstadr avant update (constante dans es 





1589 












EFHbuau 


1Foauûn 
145 

£ 11B 

4 69748 D7 

5 @@7A2 CA 

6 UA7A4 

7 9a7A4 1000 
8 AU7Aë 147 
9 

n 

1 


mac 


Dana 


9 AA7AB 195 
AU7AE 179 
OQ7B1 147 
@a7p4 EC 
ea786 N3 


Soon 








1C4 
147 





EFooada 


+... ….. 


0. 


CE 
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R3=A R3 := dstadr avant update 
ACA) = starting address to move up 
BCA) = offset (dest sddr - source addr) 
CCA) = addr of header 


SOSBVL =MGOSUB 
CONCS) =MVMEM+ 


Cy = 1 : érreur (Illegal Access ou Insufficient Mem) 
Impossible car ces deux conditions ont été te 5 
préalablement. 

Cy = 0 : ok 

R3 est préservé de l'update et contient toujours dstadr 

GOSUR  syncmv D1 = ACA) = * début du buffer 

Tester le cas particulier du cas particulier : 

orgdeb avant = dstadr svant (ex: .,.C) 

Cette égalité est transmise après Le MVMEM+ dans 

l'inégalité dstadr avant < orgdeb après 

Pourquoi ? 

Si on avait detadr avant > orgdeb avant. le MVMEM* 

n'aurait pas modifié orgdeb. D'où : 
<> oragdeh avant = orgdéb aprèc 
=, dstadr svant orgdeb après 

Ce qui est le contraire de l'inégalité en cause 

D'autre part, si on à dstadr avant = orgdeb avant, 

orgdeb avant © orgdeb après. D'où 

dstadr avant < orgdeb après. C.0.F.D 









R3(4) = dstadr avant 

Di. = orghdr après 

Corgdeb)-(Corghdr } 

4 ACA) := orgdeb après 
CCA) := dstadr sva 

& si dstadr avant 

mvr 366 rtie 






nrgde = 
rqdeb après 





rgdeb 
adr avant u 
3 


d 





ù 
<b 
st 


















BCA) := 
BAD = or gdeb 
= térgdeh) 
length à (dstadr - nradeb) 
ÿ = deit sddres: tdstadr \ 
DOSRUL  =MOVE M 
> du dernier bloc fcelui après dstadr) : 
dstadr + tsille 
gfin après update 
= detsdr + (dstadr - orgd 








taille 
A AÇA) taille 
LCA) dstadr 
À DCA) dstad 
A ACA) := dstadr + tail 





DI=(2) mvbadr 





C=DATI À 
DI=C O1 := ° crahdr 
(orgfin}-(orghdr Di := ° ornfin 
À C{AD :2 orgfin 
A in - (dstadr + taille) 
A of bloct 
Dt := ° orgdeb 
D{A) := orgdeb 
r + orgdeb 





+ (dstadr - orgdeb) 








AYA° dstadr + taille) 

BAS = (orgfin - (dstadr + taille)}) 

LéAN = (dstadr + (dstadr - orgdeb)) 
EMOVE +" 

Sortie en vesuté 
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1601 Qn7CF 


toosesesesessssssssesessssssssseresseese 




















+ Phase IV : Recopie dans le fichie 


#07CF nonseseessnsesnesesesesssesssesssssessse 
ONCE 





mvfdux COTO muf4i4 aller directement au test 


Le test de sortie de baucie se trouve à la fin de 
cette boucle (mvF430) 


+. 





memem 
A Lt) EM (dest) 
A RACA) = MEM (dest) en quartets 













(Corgdeb )-( dr 
A ÊCA) := orgdet 


RL := orgdet 








)-(orgdeb) 
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1701 4 141 

1742 Q 6334 

1765 

1744 5 BASA 

1705 

1796 

1707 

1798 

1709 

1710 

1711 

1712 1F0000û 

1712 147 

1714 Ds 

F7 T6 

i 1004 

147 
35 
174 
143 
174 
17E 
147 
E2 
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DATI=A À 12 dans le buffer := A(A) 
S0T0 mvf445 directement sur le test du "uhile” 


Mvf45@ GOTO mvf45@ 


Boucle : 
Tant que orgdeb # 12 
= min (mem, 12 - orgdeb) 
inserer x dans le fichier (insfil) 
fin tant que 


2... 


mvf448 Di=(5) mvmem 


C=DATI A C(A) := MEM (device destination) 
B=C A BCA) := MEM (device destination) 
mubadr 
& 


Coradeb )-4 
h ACA) := org 
(orgfin)-(orgdeb) 
(12)-(orafin) 

A C(A) := 12 
ê CCA) 






+ BCA) = men 


+ C(A) = 12 - orgdeb 
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= MEM À (I - orgdeb) ‘= mem 
mvf44® oui: min := 12 - orgdeb 
À ni min: mem 
mvf 442 
saû GOTO mvfd2à aller directement au test + 
+ + CAD = % 
+ AfT des registres durant la boucle . 
. Da = I GOSUR insfil 
° Ra MEM 
# RE rgdet 
+ R? orgfin la sortie de la boucle "tant que 
- , on à 
se de fin de la boucle 
courante 
orgdeb == 12 
ie 
1=(5) mvbadr 
CEA) = C=DATI À CCA) := début des données 
ÉtAU D1=t 
Di=Di+ (orgdeb)-8 
gg :< 12 =DATI A C(A) := orgden 
1=D1+ (orgfin)-(orgdeb) 
P Editeur. ge teste utext.as Editeur, gestion du texte <xtext.as: 
ACA) := orafin Di=D1+ (I2)-(orgfin) 
? A A=DATI À ACA)D := 12 
GOYES mvf430 fin tant que ® 
+ CCA) = orgdeb 
A=R1 ACA) + ACA) = 12 
C=C-A À C{A) : ° 
ü=i & D(A) : o ?C<A A orgdeb < 12 
GASUE sLIFlen AA) := taille totale en quartets GOYES mvf44@ oui : alors on répète 
. 
(12), Le contenu de ACA) n'est plus changé + non : fin de la boucle, 
. 





À = (12 - orgdeb) 
À 2 (IE - orgdeb) + LIFlen(io) 
A place néce 
ë } MEM 
myf4ià oui 
on à AA) = LIFlen (ll 








Où := 1 

8 RCA = 
CtA) 

k c 


Mod N 





: pathologique 





1. Mn peut « 





su moins À ligne 






sovereressseessesssrene esse 





+ Cac IV.b : ligne trop lona 


+ B/A) 
° AC) 
Ge 

Fà = 


# 3 
. 
« CCA) 
; 
à 


an tait que orgdeb # urgfin) 





R2 = 






Ca 
1Fuaga 





“icrafin 









6 e82(s 
AQzCe 
RASE 
3 QUËCE 





AGEDA 
UE DA 
‘DA 
FE QUËDA 
90Epa 
5 GUSDA 
GUEDA 
GGETIA 











7146 


1F46aag 
147 


à 135 


174 
147 
174 
145 





SOTO muf450 


Détssosssessotesseessssesesseseseeeetsse 


+ Cas IV. on peut copier au moins une ligne 
sensoerersneserenene rene sonssesesssesese 


. 

+ BA) = Dù = 12 

+ RA = MEM 

+ LCA) = RI = oradeb 

+ R2 = orgfin 

+ 

mvf454 B=R-C A BCA) := 12 - orgdek 

C=R A CCD := 
GOSUB insfil 

+ 

+ Test de sortie : "orgdeb == orgfin" 

+ 


mvf49ÿ D1-(5)  mvbadr 


C:DATI À CCA) := début du buffer 
Di= D1 := début du buffer 
D1:D1+ (orgdeb)-(orghdr) 

C=DATI À C(A) := orgdeb 

D1=D1+ (orgfin)-(orgdeb}) 

A=DATI À A(A) := orgfin 

?A=C À Est-on arrivé au bout ? 


GOYES mvf300 oui : on sort 
GOTO mvf495 non : on continue 


désésoressossesessesessssemsecssssessee 
+ Sortie 
sssoreessenstessenesseeseseesesenrosesee 


mvf aan 
, 


+ Récupérer les valeurs de »xxhdr mises-à-jour et 
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1391 O08DA 
1802 008DA 
1803 008DA 7720 
1804 G06DE 
1805 Q08DE 
1506 90SDE 
1807 @08DE 143 
1898 ONSE1 108 
1809 G08E4 17E 
1814 QA8E7 147 
1211 WOSEA D7 
1812 008EC 
1813 O48EC 
1814 AQ8EC 
1815 QG8EC 
1816 603EC 1866000 
156 
3F6n040 
1ia 

DR 

















00305 
40905 
00905 
90985 
ago 
1256 00305 





AAGUS 
609A5 1F44009 
a490€ 
naaia 
00417 5 
POSLA 

48910 





= 
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066440 


8F20009 
1876 00934 


E2 
C DA 
ET 
F6 





40349 
094 464 
094€ DA 
CLERTIRE) 
94962 





EDAaaua 
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+ supprimer Île buffer 
. 








LOSUR  syncmv 
+ 
+ Di = © début des données 
A=DATI A ACA) := orghdr 
RO=A 
D1=Di+ (Cdsthdr)-(orghdr » 
C=DATI 4 CCA) := dsthdr 
D=€ A 
. 
e R@CA) = orghdr 
+ DCA) = dsthdr 
+ 
Da=(5) mvbid 
C2DATA OX 
GOSBVL =[/ODAL 
A=Rg 
=D à 
* ACA) = orgdhr sctusl 
+ CEA) = dstdhr actuslisé 


RTNCS Pas d'erreur 


vrsro resserre ose snser ete rene ressens sens ssetesesseseso se 












° syncmv 
+ 

+ But: recalculer l'adresse du buffer de "MVFILE" sn 
# mouvement de mémoire 

+ Entrée 

. mvbid = id du buffer utilisé 

+ 

+ dr dresse du buffer 

, 

, 

. 

+ 

. 

+ 





teur, gestion du text test 





PTN 
synerr GOVLNG 210 C'ast grave... On arrète tout 


merssre sons sé se ss esse esse ses essses soso 













+ men 

+ But: calcul ace di q ns le 

, ripheri itifié par sa caract ns D(W) 
+ le pé ique est "MAIN", retr legusy 

s Entrée 

+ OCW) = caractéristique du périphérique 

+ Sartie 

. - D(W) = caractérist 


du périp 











+ + ACA) = CEA) = taille onrble en qurdtet 
+ Abime: À, C, Di. 
+ Appelle: FLADOF 


que: 
11/06: PD/JT conception & codage 

11/11: PD/JT prise en compte du Leeusy 

83/11/11: 9D/JT supprime "memdev" 

torossroserene resserre etes too e etes sesenessnéneseetes 
















memD  GASRVL  -=FLADDR 
+ s of first nibble of available memory 
+ ss af last nibhle of available memory 
+ 
C=C-A A C(A) MEM (device) 
A=C À ACA) := MEM (device) 
*0#Q $ 
GOYES  meml® pas "MAIN" 
+ 
+ On ect en “:MAIN", [1 faut retrancher le Leeusy 
+ Toutes les routine: qui nous appellent appeller 
+ MOOSUR qui sauvegarde 6 quartets dans la pile 
+ IT faut tenir compte pour ne pas £e heurte 
, cry" de la part de MVMEM+ par evemnle. 
+ 
à 
CELEENAVD47 
à 
memià “Insufficient Menory” 
é A 
memia  RTHCI 
mem2@ GOVLNR =CORUPT Il ne reste mème pa 





dresse ses tasses ressseeers esse ses ess sens sseetenes nsssre 
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1901 09953 
1902 98353 
1393 00959 
1984 00359 
1995 09959 
1396 00959 
1947 09359 
1395 60959 
1303 02959 
1919 00959 
1911 80969 
1912 06953 
1313 09353 
1314 99953 
1915 40959 
1916 90953 
1317 09953 
1315 90399 
1919 04959 
99353 
60953 






09957 
09923 
09353 
04954 




















1Fa040a 


@9371 07 
d0a73 145 
74 00976 174 
5 9979 07 
6 va978 145 
QU7E 


3 40953 
AAge. 


192 
233 





Editeur. 


Éditeur, gestion du texte Cutext.as. 





insfil 


But: déplacer € quartets de l'adresse orgdeb dans Île 
fichier repéré par orghdr vers l'adresse dstadr dans le 
fichier repéré par dsthdr. 

Entrée: 

- C{A) = taille du bloc à insérer (symbolisé par x") 
- mvbadr = adresse du buffer contenant 

orghdr = adresse du header origine 

orgdeb = adresse de début de l'origine 

.... = 5 quartets inutilisés ici 

dsthdr = adresse du header destinstion 

dethdr = adresse de la destination 
- mvbid = id de ce buffe 

SMOVE = 1 s'il faut détruire le bloc origine après 

Sortie 
- mvbadr réajusté si besoin est 

Abime: A-D, 06, D1. RG-R3, SCRTCH(4-6) 

Appelle: MUMEM+, MOYE+M 

Hiveaux: 3 (voir la note) 

Algorithme: 
insérer 

Île = x quartets 

début = dstadr (qui ect réactualisé) 

sérer 








fini 






rce = orgdeb 
+ quartets 
t = dstadr (avant réactuslisation) 


ut sou 


uire 
début = 
taill 
fin détri 








esse sm ss se 








3 niveaux de 


e sont sauvé 
ils sont résctusl 


a routine t 
retour 










ose + 





stion du texte satent 


tés oseseress rene ennsessssenes ons uséssessssesessoe este 





tout 














+ 
: | 
. 
. 
+ 
! 
place pour trois adresses 
| 
Î 
DATI=C 4 
+ 
+ is niveaux de pile sont sauvés 
+ = taille du bloc à déplace 
+ 


& n4 À 


+ 


BAY := taille 








4 
dsthdr 
À 
à D1 := ° dsthdr 
ATI À CCAN := header 





JPC 69 Page 43 — 





Editeur, gestion du téeite tent. as Éditeur, gestion du teste sxtext.as 








V2.4 
QDAIS + Note : r est actualisé par l'insertion du début. En 
Di=Di+ cdstadr) » QAAIE + cas ” dstadr est redescendu. les deux cas, la 





A=DATI A AG QOA1S + valeur actuelle de dstadr est la bonne. et il n'y 4 pas 









































VaAls + besoin de Îa changer. 
3905 + ACAD = starting address an418 . 
2406 + B(A) = taille 6 GBAIS + Restauration de trois niveaux de pile. L'adresse du 
2847 + CEA) = header QAA1S + buffer est bien dans mvbadr. Les adr s sont dépilées 
c88s . QAAIS + à l'envers comme il se doit. 
2809 aFangan RUL QAALS + 
218 aug CON(S} dAALS 1F48QQA D1=€5) mvbadr 
2e11 + AAAIF 147 A=DATI À 
+ Cy = 1 : erreur @a422 D2 C=à A 
+ eILACS (illegal âccess) à A9A24 3182 LCC2)  CHVBUFS)-5 
+ eMEM (lasufficient Memory) QQA28 CA A=A+C À 
+ Aucune de ces deux erreurs ne peut se produire. 2115 A0A2A 131 Di=A D1 := dernière des trois adresses 
e Cy = D + of 2aAîD 
+ Ra = à l'entrée) G@A2D 147 A 
+  Rè= 6430 06 
. A2A32 1C4 5 
FC4F syncmy le buffer à peut-étre bougé 89495 147 A 
eDi= û0A3E 06 
UAAGA 1C4 a 
; #0A3D 147 À 
. va440 06 
* DO 
; GBLAD vi RTN 
e uodate} GDA4A 
, AGA4A END 
‘4 = orgdet 
| ' Aaagca jt À j destination 
Q37 qua , 
na & K ‘gd 
Quù g : ira) 
41 uû + 
OSBUL 2=MÔVEeM La memaire ne bougé pr 
. 
+ En sortie 4 toutes Îles condit J'entrée 
munadr Common Sub-evpression Eliminstion 
( 
| à à 
a (AS 6 GMA TE 












0457 4562 4615 0747 
9231 0738 
4167 0213 0229 à 





9468 9485 9513 





P71L 

OMFUXx 
CORUIPT 
LES 
LCR 
=CSRCE 
=DELIM 


=DERN 



























As 8 ACA3 5 orgdeb 
Ach4P A ACA) := fin du bloc à détruire 9779 0780 1298 1294 1300 1901 1002 
B=-R A BA) = 
DI=b1 torgdeb )- (or ghdr ) - 1493 
CaCATI A C4) := orghd 
. 
+ AA) = starting addres Corgdeb) 00573 - 19 
+ BA) = taille - 0957F - 1034 
e COCA = header larghdr) =1/0ALL Exten Un - 0081 1341 
® =1/0C0N Extra Un - 0233 
Fagaag GOSBVL  =MGOSUR =1/00A Extra Un - 0949 1818 
24464 CONCE 5 =MUMEM+ Extren Ukn - 0740 
La Extra lkn - 0444 
+ y = Lt erreur (Îllegsl Atcess ou fficient Mem) Extrn Ukn - AE 
. Impossible eu égsrd aux tests lables 9027C Rel 0414 - 482 1658 
+ Cy = OU : pas d'erreur Exten Uhn - 1388 
* Evten Uk - 0357 
sjuite mvbadr Extrn Ukn -  OQ4E 
h)-4 Extrn Ukn $ 2 
L(h) := orgdeb - 1929 
radeb :+ restaure d'après ROTH 1595 2042 
+ Gartie 2419 
4. = 1353 
#96 
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=SRCADR 
=SRCLIN 
=SWPBYT 
SRC190 
SRC294 
=THPS 
TURBULENCE 
saddlin 
adinia 
adln£0 
adln3@ 
curlin 
=dellin 
d1100 
d1200 
d1218 
di228 
d130û 














V2.4 


994Te 
QOSGEF 
Extrn 
49436 
4945 
Extrn 
6oa32 
VAZAG 
202BE 
#ecpi 
QW2DF 


Unkun 
4931F 
90353 


e0814 
00a0F 
Extrn 
Extrn 
Extrn 
Extrn 
Extrn 
Estrn 
a4440 
anal 

40031 
AQAGE 
Jaace 
40140 
a90C7 
AUISE 
499F2 
dQAIE 
04353 
AG4BF 
4413 
Unkun 
Untun 
90358 






@a7al 
ao7CE 


Unkun 


Editeur 
V2.4 


Untun 
845F9 
405FB 


a8f1 









Editeur, gestinn du teste 
SYMBOL 


.…… 


Rel 
Rel 
Urn 
Rel 
Rel 
Ukn 
Abs 
Rel 
Rel 
Rel 
Rel 
Ukn 
Kel 





4203 





GJE2 - 


0505 - 
0866 - 


guag 


9450 - 
0463 - 


9031 
Ga44 











TAËLE ose 








CRU 
0145 


6163 





c064 


1736 1778 
4913 
1700 


Q7E6 





1495 
QUE7 0070 
1464 1471 
1541 
1247 1452 


gestion du texte 


ssse SYMBOL TABLE see 





G9RDE 
GUGFE 
44700 
40700 
94745 
Ma7CF 
04703 





GOE 4 
Unkun 
a6qas 












CUVE 
49000 
0QcF2 
OQCFF 
rpinèg 60312 
rstk WQGIE 
=SMOVE 40000 
=seek 0ù18E 
yncbf 4QGCE 
sauvRÔ Unkun 
sek005 401BB 
sek@14 20103 
sek034 Qace 
sekñ46 4020F 
sek@45 3622 
sek059 00248 
sek060 00275 
syncmv 46905 
CLEFS 





Unkun 
Unkun 


Ukn 





47944 
4393 











rtext.as 


v269 


20h 


2802 


348 


1761 
0551 0667 
549 





1491 1577 1614 1696 1716 1745 1 


stest.as 


1934 2046 2116 


1516 1843 






1496 
1754 
1580 


0360 


c428 2492 


1482 1571 
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Jaurce 
Obiect 
Listing à 
Date 


Errors 


Breuh Assembler/Linker V2.4, 


Éditeur, 
V2.4 esse SYMEOL TABLE + 


: xtert.as 


obj/xtext.ao 


list/vtext.al 


: Sat Aug 12 17:41:23 1943 


: 004 


gestion du texte ‘xtext.as° 








(ec) P. David & J. Taillandier 1936 Paris, France 


41510 + 0 1718 

41359 903C4 Re 6 3 

dstadr 230 à 

dsthür s 1283 5 

<eILFAR Jr 

=eL2LNG Jk = 

=eMEM U - 

=eNFND Uk: ? 

=getchr - 0912 0927 
zid Uk - À 

sinibuf Re - 

inibla Re - 

inib1s R $ d 

inib29 € 9 6473 

inib50 L 

inib3@ te Le = a14 
inib89 ë 3 

inib34 ë AG - 3 3 
insf54 c065 - 2 

insfga Ÿ 2479 

insfil t q 1778 
invprm e 3 * 

12 

Ideb - 6 

Ifin 077: ô ô 
myF 486 e 79 

mvF94@ 5 59 £ 

mvbadr J 39e 452 2 

LE —————————————— ——————————————— ——————…—.——— ———————— ——— ———— ——— —————— ——" 

Page 046 £ s 
AREUH ASS. , 

mvubi d 46 32 
mverr 344 - 1342 

mvf19 è 3 

mvfi10 1 = 6 

mvf24a 8 87 - 

mvf220 e : 44 

mvf44g \ # 4 

mvf 495 Re f 

mvf41è 6 à b 

mvf429 ê Ve 649 - 1633 

mvf430 U 9 Re 6 

myf440 Ve : 

mvf4dc e 5 

mvf445 \& Se 

mvf45ô £ Ÿ 1 ? 

mvf43a ë 6: 
mvfqga ë 539 179 
myfer+ 3 

mvmem : 2€ ê6 

orgdeb 8 5 à 
orgfin s agn: < 453 G2 5£ 
orghdr é à 33 8 
srpllin £ - 

rpin1û à 5 
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a001 eaona 
don? paagû 
do nana 
204 ooeaa 
2945 29099 
daeE vonae 
ad07 e0ne0 
2005 0no0a 
9093 çaaaa 
8010 00000 
all 00008 
go12 ouaan 
3 angag 





veooû 
toaan 





eaeec 











oaeea 


gang 








gaa 
auaq 


éuaag 


Editeur, édition d'une ligne <xdsp.as 


TITLE Editeur, édition d'une ligne <xdsp.as"* 








+ 
+ Correction du 88/07/09 

+ - Les deux commandes "T:E" saient un probleme car Île 

. texte entré écrasait le E". D'où un “Invalid Cmd” 

. la plupart du temps. Ceci 3 été resolu en protégeant la 





+ Math Stack après la iecture d'une commande, et en ne 
+. collapsant plus à la lecture d'une ligne 


curadr E 


insert 





Dossssossvess esse ere ss esetessessessssnesesssesessssecsse 





+ prompt 

. ficher un prompt 

. 

+ COUR = ligne courante 

+ - DERN = dernière ligne du fichie 

+ Sortie 

. - Math-Stack = chaîne entrée au clavier 





+ Niveaux: 








+ Histarique: 
$ /85/15: conception à codage 
+ orotection de la MS, après [ENDLINE] 





deesosessorersess cesse eestes esse es etseeese esse 


promot GOSUR  emdaff 


+ Affichage d 
‘ 





hffichage de la command stac 


CA := courante 


dernière 





dernière 


output in R2, 111 = hes-deci 


9) 
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9101 00043 9 
9102 06045 E 
0103 QACAS 0@ 
0194 GQ9AA 6 
0195 OPQAE 
GIE QAGAE 


GGQaAE 
RQAAE 
QQQAE 
QQUAE 7CQ0 
QARC 604F 





? GROS 
dope 
n9e86 
ver 
ooe 
aav8s 
AogBA 
AOQBE 
QQORE 
CET] 
teoc7 
DQGCE 
e40pa 2F2a0aû 
eaa07 à! 











aa0D3 
3 400D9 
3 a60D3 
@136 90403 
9131 960D9 7B0I 





gaann 


0133 000E1 








28 6aar 


ua 





gg 
quan 
aeara 
AaUF A 
bagrg 71CF 
nur D & 


dû 
val a 
> 04143 
4103 
40193 








édition d'une ligne <xdsp.as? 


CON(2) 25 
RELC3)  prCMDS 
NIBHEX 04 
GOTO prmté@ 


Cg CHDS] 


Ah bon ? 


sssorsssssss sms e nee seneens sense sssesssssesessessséate 
+ CATIN] 


tonnes senes seems sense ess seenense ses eeseseensseesesese 


finlin 
rompt et enlève la pile de commandes 


prATIN GOSUB 
GOTO 








prEONT GOSUR status 
GOT prmtE® 


utilise A-D, DG, Di 





eéonessseseseseeecoessessesssreesessssesemssesessssesesentee 


+ (3. Evl. [gl ]. [gllv] 


debsorerseste serres esse ess rene etesseeemesssceseses 








pril  GOSUE [up] 
GOTO prmte8 
prDOUN COSUB Cdouwn] 
GOTO prmtaû 

prT0P COSUB [top] 
tua 

prBOT st] 
:0TO prmton 


nésesosess eee see eee res sseseseéssesesseneresesssnes 
+ [FXOFF] 
sesesssess someone se sesesossasess sense soneseenesensesesse 


prOFF COS 
GOLONG 





JB finli 


(IT 





mmande “exit” en cours de route 





nossooses seems sesen esse esse osesesesesesssense 
+ CgJLCHDS7 


dossosecosessseesss ce cees ess veeseesesecsessoroeseseessesee 









VUQAE, 
ana 


CUITS 











00468 6700 
5 AGGEC 

CLELTS 

2a06C 

DAYEC 7F51 
G4n74 

44078 

9481 4474 

00970 

44979 7eB4 
90074 SF9n000 
9an7E D 
auo/D E29 
buasQ E 








RAULET 
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On veut pas "title search" 














+ 
* saus marche dans las HP-718 
+ versions IBBER, GCCCC et 2CDCC. Comme il est peu 
+ vraisemblable qu'il y en ait de nouvelles 
+ 
GOSBVL #099AD =TEMSTX LIU 
GOSBVL =AVS520S Display AVMEMS CHE 
GOTO prmtéa 
. 


+ Affichage de la piie de commande 


dsocmd 



















+ 
+ Edition 
. 
prmtég GOSIE 
10SBVL 
CONCZ) 13 CENOLINE 1 
REL(3) prEHD 
CON(Z) 14 ATTN] 
prATTN 
16 I NT] 
prCONT 
15 FU 
or UP 
13 [v1 
proDun 
[allv] 








9151 06193 7583 
0162 29107 ECFE 
CU 
46168 
aglus 
OUIÈR 
Qn 198 
OUIAE 


g 00108 
hole 
bulaR 
9162 HG19B 








dauon 





0163 40 
d1o4 nù 
64116 

6ulle 

44116 1804064 
#o11D 137 
04120 144 
04123 1940 
@@127 140 
@Q12A 01 
a912C 

an1cC 
5 90120 
6 ÿal?c 
Aa12( 
4o1cc 
ga12C 
49120 
oa12C 
@912C 
gu12c 
ê: hall 
25 Q412 
































auldi EF00000 
9a148 D& 
OG1AA 2F 60000 
6151 D4 
dW153 41 
90155 


gemds comme si touche [q][CMDS] 


G0TO prmtaû 





tonrssresoroseses ons oser rssnete ses seseseersvessesesesess se 


+ CENDLINE] 


eerertsré esse resserre seen esre ses eretesesessesens st 





prEND 
, 
+ Lire la chaine sur la M.S 
. 
COLLAP nettoyer 13 M5. au préalable 
getstr 
. 
+ Placer LCMD et PCMD 
. 


D4=(5) =PCMD 


CDIEX 

DATA=C A PCHD := ° premier caractère dans MS 
Da=(2) =LCMD 

DATU=A À LCHD := longueur de la chaîne 

RTN 





vossssseeosssesosessseserseeseness 





“bute asser CHEN 
+ Entrée: - 
. 





Sorti 
. -P=0 
+ - code de retour de CHEDIT dans A(A) et B(A) 
+ - si ACA) = Q, la touche était à exécution immédiate 
+ Abime: tout y compris S-R1-1 et la return stack de sauveg 


+ Appelle: R<RSTR, CHEDIT, RSTKCR, ATNCLR 
+ Niveaux: plein ! 

+ Hictorique: 

+ 55/05/14: PD/JT pompage de KA 


sérssrssesss rss esrene soon nsseseemenereesesépssesseessse 


4 

=R<RSTK 

=CHEDIT 

ed1® Immediate execute key 





ched16 & 





Ro 


RSTK<R 


æ 1 


=ATNCLR abime ACA) 
A 














Page 
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0261 
0202 





0205 
0206 
0207 
a268 
9203 
921à 
o211 
0212 
9213 
9214 
0215 
9216 
0217 
0218 












9 44155 





49155 
69155 








00155 
09155 
99155 
09155 
00155 
00155 
20155 
00155 
00155 
00155 
08155 
90155 
00155 





8915C 
00163 8F08000 
GUIBA E 
40160 SFAn4Qn 
Q4174 SFu9Qû 
ao17P. 
AQ17E 
00125 
eair 





hgaa 








GA1AS 






















Editeur. édition d'une ligne <xdsp.ss 
Doossoseneseresesse esse s ere nso ns ess ss ess esesseseses 
+ getstr 
. 

+ But: lire une chaîne du display buffer et la poser sur MS 
+ Entrée: 

+ - display buffer = ligne 

+ Sortie: 

, ère 

. r en caractères 

. roté ] 

+ Abime: A-D. k ; RRAE 

+ Appelle: DIMSTK, DSP#09, POPIS, FINLIN, MAKEBF 

+ Niveaux: 5 (FINLIN) 

+ Historique: 

+ 85/05/15: PD/JT conception & codage 

+ 83/87/09: PO/JT remplace COLLAP par DIMSTK (eviter T:E) 
socosesseséessess Dossherosrereomssosesessosesressesesee 





MAKEBF 

=FINLIN 

=DIMSTK positionner Di sur M.S. 
on veut revenir de DSP400 





getstr 


s 


=DSP409 
=POFIS 


=AVHÈME comprend le CR pose par DSP400 





À sauvegarde 
A CGR = ° 
D1 È 
Ê DT # 
M 
A 
À non compris le CR final 
A 
A D(A) = ACA) = CCA) := nb de cs 





oser ocre sera penteneer es ererets esse eee éeeesees se 


cmdtoq 


inverser le mode “pile de commande” 






Ë 
Sortie 


+ 
+ 

. 

+ 

* = 

+ Abime: A(A), B(A), D(A), + 60850). 208 
° 

. 

. 





Appelle: SFLAGT 
Niveaux: à 
# 






drique: 
8/05/15: FD/JT conception £ codage 


sssseorensssress sense ses eee ose sets stereo 
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2261 901 
! 


9342 091€ 





9319 9@1CF 

9311 691CF 

6312 Oÿ1CF 8F00004 
9313 001D6 31B4 
0314 901D4 8F00408 
9315 091E1 

0316 961E1 

9317 Q01E1 

£D00008 









DIE 
; AUIES 
Gaies 
QQ1E8 
QGIEZ 
QO1E8 


QA1ES 
GALEE 
4 GUIES 














QG1E2 7749 
GAIEC CE 
GAIEE 8AE 
Ge1F1 49 
9345 00173 E6 
6 0691F5 6924 
041F3 7634 
G91FD &BA 
uu206 F1 
9350 hy202 EF 















Editeur. édition d'une ligne <xdsp.as, 
. STHTRG 
+ bppe . ESCSEQ. CMDS526 
+ Niveaux: 
+ Historique: 
+ 58/05/15: PD/JT conception 8 codage 
donsono teens sense ess esse sens sensenesseseeseeneese 


dspcma 
+ Oui : effacer l'affichage 
GOSBUL =CURSFL 
LEASC "K° 
GOSBVL =ESCSEQ 


+ afficher la CHDPTR-ième entrée 
GOVLNG =CHDSZ@ 


sonore ssessosssssnesessssenseccceseses 





sunoosesossssssess 














[up]. [doun], [top]. [bot] 
But: gérer les touches de curseur vertical 
Entrée: 
le flag FICHUDS indique si on est en mode commandes 
CMDPTR = niveau courant 
MAXCHD = niveau maximum 
- Sinon 
COUR = ligne courante 


DERN 


N = dernière ligne 






ur de la variable adéquate faite 
e "cmd stk” actif 








toria 
£/16: PD/JT conception & codage 
Doenso nec ss een esse one nne nent ne sense een esesenee 





+ 
, 
. 
, 
. 
+ 
+ 
+ 
+ 
. 
+ 
+ 
. 
Û 
. 
. 


[up] rini 

À ECA)-- 

ë 

up 

À on annulle la modification 
upbe urend 
[doun] urini 


sans modification 
CCA++ 

















9279 
Q2E9 
oc81 

282 
4283 
0284 
9285 
0286 
o287 
0288 
9789 
0230 
2291 
2292 
@233 
9294 
0295 
9296 
0297 
0298 
9293 
9300 








ET] 
CAB] 


an 183 


8 QUI) 


QQIES 


941C4 
9a1C4 
901C4 
00 1C4 
461C4 
401C4 
481C4 
O41C4 
24104 
90104 
90104 3190 
99108 8000006 
O01CF 
601CF 
@01CF 
901CF 
a01CF 
@91CF 
Qe1CF 
QO1CF 
991CF 
A61CF 
901CF 


Editeur, 








tion d'une ligne <xdsp.as> 


d 











cmdtog DO=-(5) =CMDPTR 
C=0 ë 
DATA 5 
LC(2)  =fFICHDS 
GOVLNG =SFLAGT toggle CHÜS flag 





nnsesenpies ire monee esters stone se csseresssesssenessese 














+ cmdcff 

. 

+ But: enlever le mode “pile de conmande" 
+ Entrée: 

+ Sortie 

+ Abime: , RCA), DCAN, CCS, Ct5-01 

+ Appelle: SFLAGT 

+ Niveaux: 2 

+ Historique: 

+ 15/15: FD/JT conception $ codage 
orestessto ses ss ss esse sense pesessesessens 


FICMDS 
LAGC 


cmdoff LC(E) 
GOYENS 





tenceose ressens een sense nes esse sen o nes s ses oevessnessenre 


cmdst? 


+ 
« But: tester le mode "pile de commande" 
+ Entrée: 

+ Sortie: 

+ - (y = état du flag 

+ Abime: AA), DCA), CCS). C(5-0) 

+ Appelle: SFLAGS 

+ Niveaux: 1 

+ Historique 

+ 86/05/15: PD/JT conception 8 codage 
. 


vossnss see so ss ere teses esse seems resserre esse esse 





cmdst? LC(2) =FICMDS 
GOVLNG  =SFLAG? 
none rep serrer esse tenons ess sn enesenss ses 
+ dspcmd 
, 
+ But: afficher une liqne de la pile de commande 
+ Entrée: 
. - flag FICMDS à L si la pile de commande est active 
+ - CMDPTR = niveau courant dans la pile 
+ - MAXCHD = niveau maximum : 
+ Sortie: 
#* = la chaine est affichée si besoin est 














à2371 méc37 4E1 

Q372 00234 708€ 

9373 OQZSE ACI 

4374 00241 1B60000 
5 00248 142 

6 QQ4R E4 

00240 1990 

> 44251 146 

9 00254 @! 

90256 ACI 

00259 RAS 

90250 1890900 

90263 DQ 

00265 1520 




















902ED 149000 
Q0273 De 
00175 156% 






a O027F 
ao07F 





. édition d'une ligne <xdsp.as: 

















G9To curend 
[top] CGOSUR curini 
à CA) := 
curend 
[bot] curini 
) fichier vide 
A 
curend 
terminé pour cmd st 
Cy = @ si pas cmdstk 
cendst A 
À entre 0 et MAXCHD 
Cv = 1 si cmdstk 
curini GOSUR cmdst? 
G0C cinist initialisé pour cmd stk 
GOSUR  Fintin 
B=0 5 
D0=(5) =<DERN 
A=DATO À A(A) max 
A=At1 À ACA) max pour [Eof] 
D@=(2) =COUR 
C=DATO À C{A) := courante 
RTN 
cinist B=0 5 
$ R(S) = flag == cmdstk 
A 
P 
A ACÇA) := MAXCMD + 1 
A BÇA) := MAXCMD + 1 
À 
P 
4 
A CCA) := 1 si sommet, MAXCHD+1 en bas 








. 
+ But: afficher la ligne pointée par D8@ 

+ Entrée: 

& + 0ÿ= longueur LIF de la ligne à envoyer 
+ Sortie: 


JPC 69 Page 47 
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age OU Editeur, édition d'une ligne <xdsp.as 






+ Abime: A-D, RÜ-R2, 
+ Appelle: LIFlen, DS 
+ Niveau 4 

+ Hi que 

05/23: PD/IT conception $& codage 


tosssossssssssserensessssssseseseesseseeesesesesemessesesses 


D1. STMTRÔ 
NA Ctombe dedans) 







+ 







a408 =dsplin GOSUBL =LIFlen 

4493 LES A AA) := longueur en octets 
vaie COYEX 

èdil D1=C 

gai? Di=Di+ 4 D1 := début des données 
u413 SOVLNS  =DSPCNA 





4114 
ossrspessessesesserrseee esse nsosesesseseeresssessesessesese 


+ edtlin 
























Page Ô11 
AREUH ASS, 


a5a1 @02FF 
4542 00303 
0593 90306 
0504 06509 
d505 00388 
4506 Q0308 
a5a7 6030p 
45a8 VaieR 
2593 QA30B 
0519 Qù30E 
0511 60310 
9512 
9513 
514 00315 
84315 
00315 
49315 
44319 
aaziD 
à 40310 
99310 
2 @031D 





















40325 
94325 
40328 
0324 
0032A 
@0324 
@a32A 
4032€ 
2 09335 

49333 
ña33C 
A0342 
@u34 
U43AD 








ÿ2.4 


1008 
143 


SBE 


CI 








pose 63 


715F 
8Fauann 
7400 
193 
8 0200 
3114 
eFaaaan 
31B4 
Fhagan 
6529 


Editeur, édition d'une ligne <xdsp.as 


D1=(2) 
A=DATI 


=DERN 

A ACA) := dernière 

â si courante ‘= dernière 
edt05@ alors message normal 














+ 
+ Mode l'ou T 
?C#0 S 
GOYES edt@40 mode I. [Eof], keyuait 
+ Mode T 
edt109 Rien de spécial, on continue 
+ 
+ [Eof], mode T 
dspeo 
edtiès 
+ CEof], mode | 
. 
edtñ4û dspeot 
edt855 pour la partie commune 
edt#58 ?C=4 5 
GOYES edt06 (line, mode T 
, 
+ <line mode I 
+ 


GOSUB  =dsplin 

GOSRVL =CRLFND CR/LF no delay 
edté55 GOSUB =2KEYUT 

R3=-A 





+ line 





edtub@ CODEX 
Ra=C RO préservé par ESCSEQ 








Oô< 
Gasue 


aUSEV 


ligne 








. 
# But r une ligne 
+ Ent 
. = ligne courar 
à dernière ligne du fich 
. ë l ran 
Je mode ‘T" 
+ oE 
+ # = code de retour 
+ : [FC0FF] ou [ATTN] 
# à + CENDLINE] 
+ Di = premier caractère 
. - PCA) = ACAY = longueur en caractères 
+ Ÿ ge la M 
, ? ur 
+ Abi 
+ Avpelle: 
+ Niveaux: 
, 
+ 
+ 
. 
+ 
. 
+ 
, 
4: 
+ 
- 
+ 
Fage 01 Editeur. édition d'une ligne <xdsp.as 
AREUH 455. V2.4 





tion $ cod 
&2/46/05 te, (Ecf] plus en mode T, lastkey 


toners essesne reset s ere ses reteseseeesreneeecsesese 








CUradT 25 ligne courante 








5 insert := (mo & PR 
cmdoff enlever 14 pile de commande 




















zlastky 
F 
$ lastkey := à 
ejt10 
É dty08 à 5 lasthey := 0 
6a2CR ACS edta1g B= $ BCS) := lasthes 
LIANT 0 
4 GATE + Pile de commande 
AASS MACE + 
4496 QUOTE 70FE GOSUE cmdst” de commande sctive 
Aû GONC edto04 Non : 3ffichsge norms 
GOSUE dspemd Oui affichage de la pile 
GOTS edtià attente d'une touche 
+ 
+ Affichage normal ligne courante: où [ $ 
edt420 CGgz=(£ insert 
curadr 
A 
= digne 
LCA) := courante 

















Qu37E 


00347 
093 
4g24€ 
4434 
ag3Bl 
L d4383 
44386 
4a3ps 
 AUTRC 
MAR 
















49303 
gazcs 





Bÿ3CS 
94305 
CRT 
hn2cq 
j 993CD 








S43CD 
49300 
eu3Cb 
#83CD 
a65C0 
a43U1 
5 O020 
an2D4 
640 











u® 4 





7AAD 


o &wm 
Res 


a 


7EF4 
30n 


ÿ1 


765à 
G48F 


771E 
6129 
702€ 
6Faa 
778€ 


Fan 


Editeur, édition d'une ligne ‘xdsp.ast 


edt140 COSUR chedit 


GOSRVL =FINDA 


3 LENOLINE 
edEND 

14 LATIN] 
edATIN 





) 16 CFJLCONT] 
RÉL(3) edCONT 


CON(2) 18 [°] 
REL(3) edliP 

CON(Z) 14 Lv] 
RELC4)  edDOWN 











CONC2) C4 Coll] 
REL(3) edTOP 

CON(2) 21! [av] 
REL(3)  edBOT 

CONC2) 24 CFJCOFF] 
RELC3) ed0FF 

CONCE) 25 LaJCHDS] 


REL(3)  edCMDS 
NIBHEX 40 
GOTO edt194 Ah bon ? 





entorse nee coree rss erseseressenssssomeséerenensee 
+ LATIN], CFIJCOFF] 


CECEEEET EEE EE TETE TETE TETE TETE TETE TEE EEETT 





tessosvese 


#dATTH 

edOFF GOSUR  tinlin 
LC(1) 4 CATTN] ou CfJCOFF] 
RTN 


eéhossro stone eme ses oseenenne sers eemeseenvessesente 


+ CFJCCONT] 


dhtsosros serons rstess ss sssssssessesesenneueeseseesseesese 


edCONT GOSUB status 
GOTO edt108 


dénseosesesrs ss eseee ses rene nsensees senc te peneéesessessrese 


+ touches de curseur : Evl, [°J. [N°] et [av] 


térsoorssss so ssossec este scesessseeneeseescoeeesesresesees ee 


edUP  GOSUB [up] 
CATO edt516 

ed00WX GOSUB  [doun] 
COTO edt500 

edTOP GOSUB [top] 

















Paye 012 
AREUH ASS. 


9641 







0603 
0604 
0645 
9606 © 
4607 
9608 
0609 
9618 
9611 043FC 
9612 00400 
9513 0940 
0614 07404 
9615 29400 
4616 040€ 
9617 00400 
0618 00404 
4613 GA4Uc 
2620 040€ 
2g40* 
og 


ÿ 24408 



















Qa40F 
09412 
v4412 
48419 
94410 
enr 
GUA1F 
41F 
41F 
gn4ir 
3 o@aïf 
a841r 
5 0441F 


4041F 











1B4GUNA 
1544 
41 





Editeur, édition d'une ligne <xdsp.ss 
60910 edt519 
edROT COSUR [bot] 
edt508 LC(1) 1 
CSRC W lastkey := 1 
GOTO edt52ù 
edt514 C=0 5 
edtf04 pas de pile de commande 





edt494 on ne sort pas si "pile de commande” 


snseroonmense esse ro cesse te seen pete ss seeesessreseneseueeee 





sosessossse seems esters essss ose enesseoeesseseessesene 


edCMDS GOSUB  gcmds 
60TO edtona 


.. 


+ CENDLINE] 


dossesosoreosesseses ses sosceesseseeressssecsssessereesese se 





annssosssosssesssesssssrss senc ses sesessessssescesssese 


e3EN0 
. 
+ Lire la chaîne sur la M5 
+ 
GOSUR  getstr 
+ 
+ KRenvoyer iles tonnes choses 13 où 11 faut 
+ 
LC(L) 1 touche CENDLINE] 
=4 5 


slasthy donc on sort 
en mettant lastkey 





Denon one nent ess n messe nées eneneséssoneessee 
+ status 

, 

+ But: afficher une ligne d'état tant qu'une touche est 

+ appuyée. 

+ Appelle: MIPOUT. 
+ Niveaux: 2 

+ Historique: 

+ 88/05/24: PD/JT conception 8 codage 

+ 88/11/24: PD/JT 4jout du nombre total de lignes 


sosrossresenss ses ess eseso care semse ses esesc essences 


Num?D1. VIEWDI 





Fsge 419 


AREUH A3S. V2.4 


teur, édition d'une ligne :xdsp.ac 


4701 66481 EFUY GOT 1tat94 
h792 G44Ar 

N7QT OUAAS . 

9794 OY4ES 
9705 GU4A 
9706 4445 359 
9707 94480 
070% OD4E] 
9709 GY4B1 1000 
9716 09485 E0Gv6bU 
#711 694RC 

0712 O948C 


+ Cas particulier "a/a 





stat54 LC 
DAT 





"@/4" c'est symétrique 
& 





stat3@ Di=(2) (=FUNCRG)-2 
GOVENG =VIE 





tererss none rennes s es esenetes secs ces ssenecsessese esse 





9713 @44BC + gcmds 
4714 984BC . 
4715 0840 + But: réaliser les actions requises: par l'appui sur a 
4716 094BC + touche [g]JCHDS] 
4717 4G4EC + Entrée: 
0718 G448C + Sortie: 
4719 694EC + Abime: 
4724 @44RC « Appelle: cematog, emdst?. CURSFL, ESCSEU, finit 
0721 484RC + Niveaux: ouh la la. 
0702 GG4EC + Historique: 
9723 @44BC + 6/05/2%: FG/JT conception & codage 
9G4BC SSSR ETS RTS NT SIT T SR RL ON Ten ES dede SES 





agarc 






9726 O94EC 7@EC gemds GOSUB cmdtog 
0727 094C0 766D GOSUE cmd Nouveau mode = "actif" 
9723 Oh4C4 572 GONC gemdi® Non : il faut don ve 


9723 444(7 + Il faut l'activer 
4734 O04C7 8F06400n € \ =CURSFL 
9731 604CE 31C3 % 
0732 00402 7F00 
9733 00406 31C5 
9734 ORADA 8F6000@ 
0735 094E1 31E3 
0736 QO4ES ED90000 escseg COVLNG 
9737 OM4EC + li faut la d 
0738 944EC E1DB gcmdi@ GOTO 
0733 044F9 
0740 G04F6 . 
4741 694F6 . 
9742 hoaFa + 
9743 @04F4 + But: afficher "LEof ]" 
0744 Ga + Entrée: 
, 
. 


Cursor off 





=OSPCHC 


sESCSEQ Cursor or 
ctiver 
finlin 





Moseores ce res ess seresensnonecpesesssecessenereeesessessese 


dspeof 


9745 G44FQ 
@746 Q@4Fe 
@747 GA4FQ 
0745 O04F6 
@749 G04FQ 





.. 




















5 6041F 9754 QU4FQ isolement de edtiin 
ge Gi4 Editeur. édition d'une ligne <xdsp.as? Fage 616 Editeur. édition d'une ligne <xdsp.as 
AREUH ASS. VI.4 AREUH ASS 





9651 #8%41F 
Qa42e 


3 Uh44d 


144 


An44A 
60440 
he4sa 


aaace 


3 04462 
aa46e 
A446C 
9046F 
09476 
09479 
@947C 
9047E 
AQA7E 
GG47E 
9a47E 
d4450 
90454 
90487 
692 44430 
8043D 
09480 
5 00480 
26491 
7 00494 
> 40497 
939 00499 
n AAJAR 









1F2n00ù 
DE 





8F00009 


144 
1809940 
146 

134 





173 
1800409 
146 

BAA 

sè 


p7 
1300 
142 
8E9040 


SF 
140 
171 

DR 

DA 
SEnAQA 


status D1=(5)  (=FUNCRA)-2 
C=4 À 
LC(2) 4 
GOSBVL = 

À 

« Recopie du nom du fichier 


e Au plus 8 caractères, nn arrète des qu'on trouve un " " 





, 
D1=(2)  C=FUNCRO)-2 
D9=(5) =FILADR 
C=DATA A 
Da=C 
LCAS( Res 
P= ï 
stati® A=DATA E 
LE B 
stats 
B 
stat1ô 
+ Mettre ", "comme séparateur 
stat24 P= 
COAST 73° 
DATI=C 4 
Di=Di+ 4 
D=(5) =DERN 
C=DATA A C(A) := dernière 
?C=0 A Aucune liqne ? 
GOYES <stat54 Oui : cas particulier 


+ Mettre le numéro de la ligne courante 


G=C A DA) := dernière pour plus tard 
D@=(2) =COUR 

A=DATA À AÇA) := courante 

GOSURL  =NumeD1 





"et le nombre de lignes 


. 
LEASC "7" 
DATI=C E 
GisDi+ © Rod = 7 & 
C=D A CCA) := dernière 
A=C A ACA) := dernière 
GOSURL  =NumeD1 








CHE LE) 
auaFa 


MEAFR © 


tosssssresssrenne sense senc sense sssesesenteseseccieressessee 









dspeef LO(AN )'tsteE0F) ‘TE 


Na WRN L: 





no ERRN, no BEEP 





OVENS 


doses ose ene esse seen esse ones o nes vonenes ses rte ose 


























* QUEry 
. afficher le résultat de la recherche ou du 
. ement et demander la validation de l'utilisat 
+ 
+ 
+ 
. 
. 
. suivent C(@) 
+ @ : [QG] ou LATIN] ou [fJCOFF] 
769 @04FF e Î f 
QG4FF . È 
GG4FF + Abime toute la function 
2 Q@4FF + Ancelle: BLOBIT, LiFlen. Nu 
3 QQ4FF + FINCA. RSTRAR, YNG 
QU4aFF + Niveaux. voir note ! 
5 QQ4FF + Note 1 
QQ4FF + HEYMT consomme besucoup de niveaux. Ceci conduisait à un 
QO4FF + “Memory Lost” en cas d'attente prolongée (1 à 2 mn) 
8 QQA4FF + D'où une sauvegarde par R<RSTK et RSTA<R. Le nombre de 
3 Q@4FF + niveaux exactement utilisé par “query” est difficilement 
QQ4FF + évaluable. 
OQ4FF + Note 2: 
QQ4FF + Les longues lignes ne sont pas traitées par “query” de 
3 GQ4FF + manière satisfaisante. Pour résoudre le probleme, i 
QO4FF . faudrait utiliser l'algorithme suivant 
@R4FF + zone := largeur de la zone à afficher (zone substituée 
QA4FF . ou occurrence complète) 
QA4FF + len := longueur (ligne) 
$ QA4FF + si len * 95 
a Q64FF + alors 
QQ4FF + 
QUAaFF . lonne et zone 
VU4Fr . si colonne + zone < 95 alors 1 := @ 
3 @AA4FF + si colon + 95 * len al À <# den: 9% 
QQ4FF . sinon i colonne - (95/2) 
AUAFF . fin selon 
Q@4F + sinon 
AGAFF * 
S AAAFF + 
6793 AGAFF e 
à G604FF + is]: 
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Page 017 Eciteur, édition d'une ligne <«xdsp.as Page 019 Editeur. édition d'une ligne <xdsp.as? 
AREUH ASS. V2.4 AREUH ASS. V2.4 
ABUi QA4FF , FIRSTC := colonne - à : 0399 09605 118 C=Rû 
A302 QQAFF + Historique 9929 00603 1557 DATI=C 4 
3 404FF + 8/87/09: PD/JT cancer codage #9al GQbAC 
4 Q4FF + S/18/16: PD/JT a R et R<RSTR 0392 OQEAC 119 C=R1 C(11-73 := ° ligne LIF 
AAAFF + 11/13: PO/JT utilisation de YNQ a903 SFoagna GOSRVL =CSRC7 
6 004FF dnsotsssresrensese sense ses seems ose ses essesesssessee 0304 6 134 Dè=c DQ := longueur LIF 
7 OG4FF L'ÉTÉ) a SEQoua GOSUBL =LIFlen 
ASGS AA4FF d on EQU =FUNCR4 zone d'affichage pour au moins 28 © 4906 DA A=C A AC(A) := taille en octets 
WEQg QQ4FF BitsOk EQU Î a307 163 D@-0@+ 4 
43103 138 CDOEX 
sauery D=Ù À DCA) := na colonne a9eq 135 D1=C compatible avec DSPCNA 
CDAEX 9210 . 
Disc D1 := début ligne e311 + Di = chaîne 
a912 + ACA) = nombre de caractères 
5 P= ajout du S$8/10/16 9913 + 
aFañnaa GOSBVL =R<RSTR abime RCA). C(A). CCS), DO 9914 SFa8auo GOSRVL =DSFCNA 3 ou 4 niveaux de retours 
9915 8F00090 GOSBVL =CRLFND 5 niveaux de retours 
1 CDIEX CA) := ° début ligne 0916 @ 
513 &Fogñan GOSBVL =CSLCS 9917 . 
DB C=D A 9918 + Ce qui suit est inspiré de SCROLL (voir IDS I, page 17-61) 
8Fa90aa GOSBUL =CSLC2 a919 $ 
109 R1=C R1(11-7) := ‘ligne : RI(B-2) := col ag28 119 C(6-2) := no de colonne 
& @901 QAESR 8FU0000 
+ L'affichage est construit en deux passes : 9922 GE Parce que 
+ La première de 20 caractères : 0323 00544 540 
% ligne colonne \ <blancs...> 9924 00647 D2 
, 0925 00649 DS queb56 
1Fauagu dspzon 9926 00548 1AAGGQ WINDLN ACA) := WINDEN 
: : 9927 04551 DO 
53 144 
Dè CCAD := 95 


DATI=C NW S1F5 





Di=D1+ 16 CCA) := 95 - WINDLN 
DATISC 
Di=01+ 16 FE 
PATI=C Ze24-16-16 C=R & CC) := min (BCA), 35 - WINDEN) 
san que#F66 Da=(2) =FIRSTC 
début de la zone C DATA=C BR 


DO=D9-  (=FIRSTC)-((=DSPSTA}+3) 
A 







































































C=DATY 
CSTEX 
ST-4 BitsOk 
AA) := no de colunne 9340 60677 0E CSTEX 
DAT@=C A 
, 
+ Fn du pompage sur SCROLL 
. 
4947 067C 8E0000 aue109 GOSUBL =KEYAT 
0943 00682 8F0040û GOSBVL =FINDA 
Page 017 Editeur, édition d'une ligne ‘»dsp.as Page I Editeur, édition d'une ligne <xdsp.as: 
AREUH ASS, V2.4 AREUH ASS. V2.4 
4 CCA) := nb de quartets utilisé: 4343 CONC2) #28 CATTN] 
495a REL(3) quequi 
CON(Z) #28+56 CFHOFF] 
ê REL(3) quequi 
RI(!-4) = position NIBHEX 4@ 
. 
24-1 nb de caractères à afficher - 1 + A(B) = code physique de la touche 
k . 
w C(15-14)j := nb de caractères - 1 SEAQGQ GOSUBL  =YNQ 
A C(A) := Display starting position } 8FOOGGU GOSBVL =TBLJMC 
W Cua REL(3) que? non reconnu 
déévon adresse du buffer 424 REL(39 queyes CY] 
=RLDBIT GA5AG 10 REL(3) queno EN] 
. OGEAB 520 : REL(3) quequi [Q] 
+ Deuxième passe de deux caracteres AGÈAE 
. "Ya AURA 7 que?  GOSUR uind=v 
: 30400 LCC4) Cid)" (=teCONF) "Y/N/0 7° 
dspzon 8E0400 GOSUBL =dspmsg 
"ap" GOTO que 194 
nb de caractères à afficher - ! quena LCI) 2 code de retour := 2 
GOTO queat@ 
1416-14) := nb de caractères 1 queyes LC(1) Î code de retour := 1 
GOTO queatô 
CCA) :s Displav starting position quequi C=0 A code de retour := à 
9 queato B:û À 
dipzon adresse du buffer 49604 A85 P B(A) := code de retou 
PELTT =BLORIT 5 49607 7F08 GOSUR uind=@ n'abime pas B(A) 
+ AUDE + 
+ Frote : l'affichage AA6 DR + Restaurer la pile de retours 
+ HINOST f tion de at ) YYEDR . 
+ WINOLN = distance entre le GYEDE DA A=R À ACA) := code de retour 
+ 44600 26 P= Ë ajout du 88/10/16 
» LFhouga =WINDST 3F00000 GOSBVL =RSTK'R abime B(A), C(A). C(S), DO 
ill AA) := position du "\" en octets D6 C=A A C(A) := code de retour 
B54 ê . 
B «et sortir 
. 
=WINDLN & 01 RIN 
19 AGE A 
B Q A9GEA Serres buis den eieessesaasiieueaiséesieusà 
ê Q9GEA + uind=0 
. QAGEA . 
+ GAGEA + But: remettre WINDST et WINDLN à leur valeurs par défaut 
+ q HAREA + Entrée: 
. ns color QAGEA + - FUNCRQ = zone de sauvegarde pour R@ 
+ RiCi-9) = uindou s 5 MOBEA + Sortie: 
+ RQ n'a pas été modifié par RLOBIT 6 AAGEA + - HINDST = 9 
+ GAGEA + - WINDLN = 21 
2 OGSFE 1EUGbmu D1=05)  =FUN sauvegarde de Rô pendant DSPCNA 2 GUBEA + - RO restauré à partir de FUNCRO 
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Editeur, édition d'une ligne ‘xdep.as> 


uind=4 










1820404 D4=(5) =WINDST WINDST := 4 


AE C=@ B 
14C DATA=C PE 
1900 üo=(2) = 


WINDLN WINDLN := 21 
3151 LC(2) 21 
€ DATU=C 8 





estaurer RG ssuvé dans FUNCRA 


149009 9=(4) =FUNCRA 
1567 C=DATG W 
198 fe 





set sortir 


RTN 





Editeur, édition d'une ligne <adsp.as> 
4 ses SYMBOL TABLE ve 







D 


Extrn Ukhn 
Extra 








4499 0683 


Q501 0581 


0538 0546 2736 


- 0498 0905 
<trn Ukn = Vis 





Extrn Ukn 
Extrn Un = 0755 
Extrn Ukn - 6621 0780 0897 0847 
- 0167 
- 224 
- 061 
- O12i 0191 0815 
£ - 0195 0982 
E 
b 4 
=STSAVE Ë 
=TELJHC Ex < 





+ Abime: C, DO, Ra 

+ Appelle: - 

+ Niveaux: 0 

+ Historique: 

+ 28/10/22: PD/JT séparation de query et documentation 
. 


donnons ss ses ses ss este s ss evene sense sésosesesessessese 


+ Remettre WINOST et WINDEN à leur état initial 


3 Q749 QEAS 0298 1019 


INDST 

IFOUT 

=YNQ 
[bot] 
£doun] 
[top] 
[up] 
cendst 
ched19 
chedit 
cinist 
cmdoff 
cmdst? 
cmdtog 
curadr 
curend 
curini 








sedtlin 
edATTN 
edB0T 
edCMHDS 
edCONT 
edO0WN 
edEND 
ed0FF 
edTOP 
ediP 
edto0v 
edt10 
edta29 
edt#40 
edt@50 
edt455 
edt?69 
edt199 
edt500 
edt519 
edt524 
edt6u0 
escseq 
=fkey 
TCMDS 
finlin 





Page 024 
AREUH 4SS 


gcmd1à 
gcmds 
getstr 
sid 
insert 
slastky 





sprompt 
prATIN 
prBOT 
pr'CMDS 
préONT 
prDOWN 
prEND 
prOFF 
pr TOP 
pruP 
prmtoa 
pemtiô 
prmt5é 
prmt55 
prntéQ 
Fquery 
que059 
queñ£à 
que lOû 
que? 
queat@ 
quena 
quequi 
queyes 
stat10 
stat29 
stat50 
stat3ô 
status 
steCONF 
=te£0F 
=tePEOF 
stePLIN 
upua 
uind=û 





Source 


Extrn 
Extrn 
Extrn 
Extra 
Extrn 
09214 
901F3 
69298 
991E8 
00223 
90135 
99120 
90256 
00183 
901C4 
9e1A0 
Unkun 
9021F 
09233 
9927F 
Extrn 
Q@1CF 
90470 
Unkun 
90297 
083BC 
9935 
09400 
903C5 
90205 
00408 
a03BC 
94300 
493C0 
0a2CE 
oa2C8 
90200 
@9310 
00325 
49335 
9435C 
0037E 
003€ 
003F3 
04276 
98412 
Q04E5 
Extrn 
Extra 
Q00BE 


Editeur, 
++. SYMBOL 
Uka ; 
Ura 

Urn ® 
UFn 3 
Ukn ë 
Rel 495 - 
Rel 0347 - 
Rel 0352 - 
Rel 0341 - 
Rel 0365 - 
Rel 9192 - 
Rel 0190 - 
Rel 0320 - 
Rel 0271 - 
Rei 9288 - 
Rel 0252 - 
Ukn @012 - 
Rel 0361 - 
Rel 9370 - 
Rel 0408 - 
Ukn Ë 
Rel 0303 - 
Rel 0753 - 
Ukn 0803 - 
Rel 9468 - 
Rel 0530 - 
Rel 0602 - 
Rel 0617 - 
Rel 0529 - 
Rel 0538 - 
Rel 4624 - 
Rel 0581 - 
Kel 0600 - 
Rel 9596 - 
Rel 0461 - 
Rel 0432 - 
Rel 0493 - 
Rel 9522 - 
Rel 0525 - 
Rel 0532 - 
Rel 0543 - 
Rel 9552 - 
Rel 4694 - 
Rel 0607 - 
Rel 0609 - 
Rel Q635 - 
Rel 0736 - 
Ukn 2 
Ukn a 
Rel 9120 - 


édition d'une ligne <xdsp.as: 


TABLE 940 


4719 
9257 
pes? 
6654 
0957 
9137 
0133 
0135 
0131 
0362 
9132 
4083 
0371 
4932 
9036 
9726 
9469 
4346 
9341 
0530 
4966 
0078 
4517 


4328 


0558 
0568 
4572 
9569 
0564 
0556 
4570 
0566 
0562 
6611 
4479 
9487 
0510 
0504 
052 

0526 
0489 
0599 
0597 
4606 
2610 
0732 
0534 
9255 
g1i4 


0926 1013 
1914 


0473 
0376 4436 0727 


0495 
0343 0351 0355 
9347 0352 0356 
4549 


Q4RE 


9522 
9276 





0618 


9513 0518 0539 4574 653€ 


2691 


6271 0285 
Q144 9372 Q561 0738 


————————————— 


Editeur, édition d'une liqne <xdsp.as> 
v2.4 eeo+ SYMBOL TABLE eee 


6Q4EC 
694BC 
00155 
Extrn 
Unkun 
Extrn 
Estrn 
oeng 
QOORE 
QaeF 1 
94103 
GARE 
AAÔE 1 
su10R 
dQ0FS 
090E9 
a@6nq 
00024 
20035 
20038 
ee06c 
aau7a 
QUAFF 
20649 





ag6Cz 
40600 
906CA 
Q044h 
CRELT 
UQ4AS 
QQ4B 
Q941F 
Extrn 
Extrn 
Extrn 
Extrn 
o01FS 
AAGEA 


: xdsp.as 


Rel 
Re] 
Rel 
Ukn 
Ukhn 
Ukn 
Ukn 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 
Re! 
Re 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 


C Rel 


Rel 
Rel 
Re] 
Rel 
Rel 
Re! 
Rel 
Rel 
Rel 
Rel 
Ukn 
Ukn 
Ukn 
Ukn 
Rel 
Rel 


6738 - 
0726 - 
0219 - 


Qo1à 


0032 - 


0110 - 
0137 - 
0151 - 
9117 - 
0139 - 


6158 - 
0144 - 


9135" -- 


9151 - 
6036 - 
4059 - 
0860 - 


0976 - 


9083 - 
9811 - 
0925 - 
0935 - 
4947 - 
6964 - 
4974 - 
4359 - 
0973 - 
0971 - 
0665 - 
9677 - 
07@b - 
079 - 
9651 - 


4348 


1966 - 


9728 
@151 
0163 
0457 
Q471 
@475 
0063 





è199 
0096 
0092 
0132 
Qa46 
0958 
0037 
da74 


4925 
4933 
4967 
4959 
0370 
0961 
0950 
0960 
0672 
0667 
0684 
o701 
9117 
0965 
0753 
9059 
0057 
0344 
a964 


0617 
0628 
0055 0753 0965 
9493 
0635 


Q104 A118 


@g72 


0952 0962 


0589 


9976 
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